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-TITLE UETINITOO VAX/VMS UETP USER INTERFACE PROGRAM 
» IDENT Fybe-00%* 
-ENABLE SUPPRESSION 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNI 
ONLY IN ACCORDANCE WI 
NC THE AB 4 


SHED_UNDER A LICENSE AND MAY BE USED AND COPIED 
TH ERMS OF SUCH LICENSE AND WITH THE 
COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
LE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


N 
i 
OTHER PERSON. NO TIT 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeePORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: 


This module will be distributed with VAX/VMS under the CSYSTEST] 
account. 


ABSTRACT: 


This program handles all UETP user interface dialogue. 


ENVIRONMENT: 
Th 


AUTHOR: Larry D. Jones, 


is program requires the following privileges and quotas: 
° OBRPNAM, “CMEXEC as . » 


CREATION DATE: November, 1980 


MODIFIED BY: 


v04-001 RNHOO15 Richard N. Holstein 07-Sep-1984 
Change BIOLM and ENQLM quotas to reflect new minima. 


V03-015 RNHOO14 Richard N. Holstein, 17-Aug-1984 
Remove BYTLM quota check; BYTLM is used for W(Bs. 


v03-014 PELO001 Patti E. Lutsky 21-Jun-1984 
Change reference to VENUS from 11/790 to 8600. 


v03-013 RNHOO13 Rich rg N. Holstein, 06-Mar-1984 
Fix minor bugs in v03- 11. 
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v03-012 KPLO100 Peter Lieberwirth 66-Mar-1984 
Change CONFREG reference to CONFREGL. 
V03-011 RNHOO12 Richard N. Holstein, 27-F eb-1984 


Take oorecen of new UETP message codes. Fix SSERROR 
interaction with RMS_ERROR. Get rid of SHOW MEMORY 

subprocess in favor of new SGETSYI capabilities. Incorporate 
fixes from the device test template. Rework message indicating 
load test calculations. 


V03-010 RNHOO11 Richard N. Holstein 02-Feb-1984 
Allow @ user to select any subset of UETP phases. Remove the 
LOCAL" subset of phases as an option. Remove old code which 
was conditionally assembled in case we needed to include 
non=-paged pool in estimating loads. 


v03-009 RNHOO10 Richard N. Holstein, 01-Aug-1983 
Fix bug in RNHOO09 which picked the wrong CPU for variations 
on a basic CPU type. 


Oooo 
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V03-008 RNHOOO9 Richard N. Holstein, 29-Jul-1983 
Add CLUSTER and LOCAL ‘‘phase names*’. suppers new CPU types. 
0 SUPERSTAR, VENUS, SCORPIO, NAUTILUS, SEAHORSE I, microV chip. 
V03-007 RNHOOO8 Richard N. Holstein, 26-May-1983 
Change ASTLM and DIOLM to 55, each. 
v03-006 BAA0002 Brian A. Ratatt. 14-Dec-1982 
Removed phase names for RMS32, system services, native 


utilities, and compatibility mode tests from phase inquire. 


v03-005 BAA0001 Brian A. Axtell, 14-Dec-1982 
Fixed problem when prompting for phase names so that it 
doesn't drop a phase if there is an input error. 


V03-004 RNHO007 Richard N. Holstein 18-0c t-1982 
Check for errors upon termination of the subprocess which 
does a SHOW MEMORY command into a file. 


V03-003 RNHO006 Richard N. Holstein, 12-Jul-1982 
Change our dependency on SHOW MEMORY so that we expect a 
second Line of paging file info for shorter filespecs. 


v03-002 LDJ0006 Larry D. Jones, 30-Mar-1982 
Fix dump node equation output, modified by history and 
set the 11/782 cpu scale value. 


v03-001 RNHOOOS Richard N. Holstein, 23-Mar-1982 
Fix confusing error message. 
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TINITOO VAX/VMS VETP USER INTERFACE PROGRAM 16-SEP-19 AX/VMS Macro V04-0 
Vit 1 Declarations 18-8 aay 90: 4: 83 UETPSY.S REI ETl yon +00. MAR; 2 —- 3) 
11 -SBTTL Declarations 
1 ; «ENABLE SU BPR ESSION 
118 INCLUDE FILES: 
116 : SYSSSYSTEM:SYS.STB ; To get EXE$GB_CPUTYPE 
117 ; SYSSLIBRARY:LIB.MLB ; To get definitions 
118 ; SHRLIBS$:UETP.MLB ; To get UETP defin itions 
0 O; + MACROS: 
0 1 ; , SACCDEF : Accounting info = termination mailbox 
1 SCHFDEF ; Condition 5 oe frame definitions 
00 124 SCLIDEF ; CLI definition 
8 125 SCLISERVDEF 3 tli cot thoes definitions 
0 1 § SJPIDEF ; SGETJPI definitions 
00 1 SNDTDEF ; SBI nexus definitions 
0 1 8 SPRDEF ; Processor register definitions 
0 1 SRPBDEF ; Restart parameter block definitions 
00 3 130 SSHRDEF 3 grered messages 
00 131 SSTSDEF ; Sta ret 
000. =— 1 4 SSYIDEF 3 ScEtst1 definitions 
Bae : Z SUE TPDEF 3; UETP 
0900 ! 5 os ITMENT NAME ,POSITION, EXPECTED 
0000 1 6 "BYTE *"ax" POSITION ; Bit of priv or quota to check 
BoR8 } 3 PUlas- PC1...+1 
000 140 “TONG.” EXPECTED ; Expected results 
4 1] # -=PC2...44 
= eee 
$009 128 ADDRESS PCS... ; Address of priv or quota ASCIC name 
00 144 PC - -=PC3, . +4 
$008 145 .=PC5... 
0000 196 NAME : ; Ascic name 
44 re os deo /NAME/ 
0000 149 ~ENDM 1TMENT 


pote 
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TINITOO VAX/VMS UETP USER INTERFACE PROGRAM 16-SEP-1984 :22: AX/VMS Macro V04-0 Page UE} 
vide 1 Declarations 132$66=1$8e 99:49:89 LOE TPS? SRETUET INI 00.MAR: 2 ’ a) v6¢ 
13) 3 
| ; EQUATED SYMBOLS: 
154 ; Facility number definitions 
00000001 RMS$_FACILITY = 1 
1 3 ; SHR message definitions: 
00740000 ! 8 UETP = UETPS_FACILITY@STSSV_FAC_NO ; Define the UETP facility code 
0741 160 UETPS_ABENDD = UETP!SHRS_ABENDD ; Define the UETP message codes 
0741 161 UETPS_BEGIND = UETP!SHRS$_BEGIND 
158 19 UG TPZ NDED = UETP! SHRS_ENDEDD 
741 1 UETPS-TEXT = UETP!SHRS-TEXT 
07411 38 198 UETPS_BADKEY = UETP!SHR$_BADKEY 
3 196 3 Miscotlanst 
OOOOOF F 16 LOGNAM_SIZE = 255 ; Maximum Logical name size 
Baga oe BB 198 SYMBOL CNT = 4 ; Number of local syms to be evaluated 
: 49) C 5 18 TEXT BOFFER = 390 ; Internal text buffer size 
0 por 0 170 MAXSYM_SZ = ; Maximum symbol size 
Bbp 0D 0000 171 CR = 8x5 ; Carriage return 
00 449 4 17 LF = “XA ; Line fee 
0000004D 00 17 M = *A/M/ ; M character 
B08 it 3 000 174 SPACE = *A/ / 3; Space character 
0000009 0000 175 TAB = “A/ / ; Tab character 
000 Base 000 176 LCBIT = *x20 ; Lower case bit 
00000001 0000 17 PROMPTV = 1 ; Flag set if must prompt for input 
0000000 00 178 PROMPTM = 1a@PROMPTV 
44 i444 00 17 TERMINALV = 2 ; Flag set if SYSSCOMMAND is a terminal 
4 44 00 180 TERMINALM = 1@TERMINALV 
0000003 0000 181 PRIV_PRNTV = 3 ; Flag set if already printed priv msg 
00000004 4 1 ¢ DUMP? = 4 ; Flag set if running in dump mode 
00000010 Ee UMP = 1aDUMPV 
00000 3 38 184 PRIV_CNT = 30 ; Privilege count 
aie ie ty 0 185 QUOT CNT = 9 ; Quota count 
s3t4! E8 00 136 PP_PAGE_USAGE = 1000 ; Est. of per process use of page & pool 
CCCD3SF4C 0000 8 187 PER_WS_TNUSE = “F0.20 ; Est. Zage of proc continuous use of its WS 
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-SBTTL Read-Only Data 

ePSECT RODATA NOEXE -NOURT , PAGE 
ACNT_NAME : 

eASCID /SYSTEST/ 
TEST_NAME: 

eASCID /UETINITOO/ 
MODE : 

eASCID /MODE/ 
DUMP: 

eASCID /DUMP/ 
SYSSCOMMAND: 

-ASCID /SYSSCOMMAND/ 


sca Me 


ORD  4,DVI$_DEVCLASS 
“LONG DEVBUF 0 
“WORD 64,DVI$_DEVNAM 
LONG BUFFER BUFFER PTR 
LONG 
USERS: 
ASCID /LOADS/ 
PASS_NAME : 
-ASCID /PASSCNT/ 
REPORT_NAME : 
. CID /REPORT/ 
SYSDISK: 
.ASCID /SYS$SYSROOT/ 


NO_RMS_AST_TABLE: 
LON R 


Fs 
“ 
J 
- 
z 


“LONG RMSS~BUSY 
LONG RMS$~CDA 
LONG RMS$_FAB 
“LONG RMS$"R 
NRAT_LENGTH = .-NO_RAS_AST_TABLE 


CNTRLCMSG: 


1SrSEp=198e 98:49:67 
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; Process name on exit 


This test name 


Run mode Logical name 


; String to match.. 
; a2aer 


we're to run in dump mode 
Name of device from which... 
«+ethe test can be aborted 
S$SGETDVI arg List for ++ wpaepeatns 
We need the device class.. 
««-and the equivalence name 
Terminate the List 
Load count logical name 


Local pass count logical name 


Long or short report indicator name 


Name of device we are booted from 


List of errors for which... 
«+eRMS cannot deliver an AST... 
--.even if one has an ERR= ero 
we that we can sear > Fepte.. 
~via MATCHC since < 12? 
«eepattern can't be S a :0>° 


-ASCID \Aborted via a user CTRL/C\ 


SYNTAX ~FRam MSG: 


SCID /Syntax error in response. 


Please try again./ 


Sm 


SEp-1986 15:49:67 UETPSY.sReIUEINITOO.mAR;2 2% 


3 


1 
1 


J. 2 


E PROGRAM 


VAX/VMS UETP USER INTERFAC 


Read-Only Data 


t 
a= 
~ 
eo 
el e€ 
ad vo 
bad c 
zB «ae 
ao) t ae 
av A c 
c “ 3 
a — °o 
> | Vv = rw) 
cad A . vu 
av « ae e 
= ow c 
v | _ 
i) = °o w 
3 . v [vu] 
rw r— vw a 
a c @e nw 
~ = | > 
“ °o co ww” 
Vv ” 
~ v w wy 
~ ~ ~ - . eo _ = 
a —s ad ae a w” ~ 
cu ee ae a =z on > 
Ee co c ~ <= c “ . 
a = | | Sd = ° o 
c o °o be av - 
v ve ca o z = 
e = Vv 7 wo -~ 
w .) a] o A c¥) A a. ° 
«e i) @ a ” = °o “u e w 
= eo o wo > we oe — a = J = 
a a ~ c ” v Cc o 
o c A «e . 
vo vo a=] wo = ~~ — « ee . 
ba aad - - - °o c ao vw wo @ 
—) —) — — oom -_ o v V 
@o ao a a a a c a 
> > > > wo =] ad o _ 
a wy aw oa c ws 
a @ @ o a oa 7) c = 
— ono C-) — wy 
ra) we we wo ea o a z = Cc 
°o o °o °o - — — °o © - 
c c c c a ~ a 
a @ —_ A ~ 
" nw V4) wn > fe °o m_ 7 
ord -_ - - Qa Oo oe al a 
- v yn 
” ” “on ” w = ] a A eo 
<= 4 odc <= “9 o x= a . 
come —— wWe-- Ww-- ow one — ws 
om —™ =~ onm we = = =~ v =“ 
” o a = a) 
= nn lon a — 
o za za -o <a “oO a a 
LAS bat ba un an wu poe — — 
Mv Wuv au ovw LS) zw vw v 
qn mn «wy am —w pee Ye] ” ” 
xz<« << oc we >< ocx 4 = 
a - ae —J « ae oe. we oo o 
7 a 1 ‘ io} ve 
a a a a a < ee ee 
_ _ Land _ =z i [. 4 « a 
=) | — = oo _— _ _ 
< ba 9 <= x 2 ” wn” ” 
> > ie = So ax a a 
=z 2 =z 2 « _ =z = 
onl — — — ow za “” w ww 
oor wns wor OOo -Pe rnwo ~ @aooo —TvrM Tr we 
MTT www www rw MAW MnAwn w mnAo Ovo” So oo 
wr mcuc evucucy cur mcuc cur ~N wer = Cucucy NM CC 


a 
Al 


SOVWMMMMe A*VwW CL ODDOOOOOw <OVE 


Mu DOBODRMMM es OOOO Muuu OOmnwovowvo 
S8ssensnewnwe ff WWI WI. 6 UPN TFLMNAN OR. DDO 


TMM OP-P_P_P..OG 


B4 


(= = Lae 
NsS SSS SSS S55 SSS SEALY SSXBRLG Ss SBsnssR 
82 Xs RXR Sts Sk komms Bsgssen Sk Ranaere 
sex Sar Ber Bes Bes Bexxs Bosessx 8S emer 
Met 85S BSR Sak SSR SUUSS BSRUSRS | «SY SKKSSSR 
RAZ BRR ARS BRS RX ASSKR ASREKXS 43 SsSBoxR 
S2S SRS SKS SRS SER SSSKR SENNGSS «SA SUCSRRS 
Sls RSS Mot NX Mok GRSS KRSSRGS SS IRs SR 
RAS «RBS ORVB RSS RG ABSA RSE SRS ORS ONG UX 
R35 SSS SSX SSX SSL YSHNR SBS SAK 8 GRAY RN 
SSS OREN Ron RSs RSS RAYS AER SRY S&S RELA 


K 2 
¥ TIN 100 VAX/VMS UETP USER INTERFACE PROGRAM 1 mitt tS 9 99: $¢: # AX/VMS Page 


v04-0 
Read-Only Data 12-SEP=1 UETPSY SUETI 1IN1190.MAR: 2 


20 43 41 21 SF 21 100002924 7F 9088" Al 267 eASCID \ILIAC IAC,\ 


53 588 cee chee \privilege\ 


BD 370 QUO_STR: 


65 67 65 6C 69 76 69 72 70 99" 


61 74 6F 75 71 89" »ASCIC \quota\ 


$36 PHASES: 


0 0000044 "ereecony” -ASCID \ phases\ 


294 LONG_MSG: 


B 
65 6C 69 66 000002CB"010E0000" 5 73 rAAs tie sities ilipecnd sna, cline dete: 
64 72 6F 63 65 72 000002D7"010E0000' CF 7 "ne present ae ee ee 
4) 21 20 358 18 oe goog 210g DD py hE fk eh ore Se He ee 
my ” . i O SYSTEM: 
$8 3 6F 33 ef 21 9909 596 °0105 9000" Fe $8 " JASCID \!/You are running on an !AC CPU with !UL pages of memory.\ 
0 43 $5 3 41 HI 0 gf 61 23 gf 18 
PRESRRP ERLE Se 
3 
slide f 82 DISK: 
H+ Ht 28 26 $8 re e's So 01060009" if $83 " ASCID \The system was booted from !AS.\ 
53 41 $4 0 6D 6F 72 66 $ 3 g 65 o 2? 
66 28 PASS PROMPT: 
61 4 20 a of $8 ret yo 2 9000" $° 285 -ASCID \How many passes of UETP do you wish to run [1]? \ 
5 gf 9 $8 6F gf 5) 3 rs 3 0 
6€ 75 72 6F 74 20 $ 3 ¢? ec 
0 3F 5D 31 58 
‘ ‘ 9E $86 LOAD_PROMPT: 
Hy 60 $0 4 of $8 e069 13 20°79 $b H: Py -ASCID \How many simulated user loads do you want C!ULJ? \ 
FLEE 66 OF ae Se 
0 3F 5D 4C 1 5B 4 : 
75 6F 79 20 6F 44 000003DF '010 . D $89 Re katie \Do you want Long or Short report format [Long]? \ 
6F 20 67 f 2¢ ob fe 6 5 es 4 : : 
6F 8 33 5 9 74 § F 43 $0 Fi 
4C 5B 20 74 6D 7 ef 96 A 
sath = © F 90 START_MESSAGE: 
° 6 45 23 or by Bh fee . F $34 ~“VASCID = \!/UETP starting at !2D with parameters: \ 
GUS R ER RR EIS te 
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70 2 6 E 
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132$Eb= 138s 99:99:87 PORCHES Macso VOE70e warez 2 
295 -ASCID /, long report./<CR><LF> 
396 SHORT_MSG: 
eASCID /, short report./<CR><LF> 
9 
$3 stateltats 1 $1 ; SPUTMSG MSGVEC for Load calc msgs 
1 “LONG UETPS_TEXT!STSSK_SUCCESS 
§ [ADDRESS BUFFER_PTR 
5 DUMP_MSG1: 
6 «ASCID \!/The default number of loads is the minimum result of!/!/\- 
307 \1) CPU_SCALE * ((MEM_FREE + MEM_MODIFY) / (WS_SIZE * PER_WS_INUSE))!/\- 
308 \ 'AS * (C!BUL + !10UL) / (!7UL * '4AS)) = 'ULI/N 


$98 DUMP_MSG2: 
10 -ASCID \2) Free process slots \- 


311 \ = !UL!/!/\- 
312 \3) Free page file pages / Typical use of page file pages per process!/\- 
313 \f23uL / $42UL = !UL!/\ 


14 
15 LOGINOUT: ; Name of login image 
16 -ASCID /SYSS$SSYSTEM:LOGINOUT.EXE/ 


; Offset table 


PRIV_CNT+#QUOT_CNT 
; Results expected table 


7 
8 OFFSET: 
-BLKB 
0 EXPECTED: 


M 2 
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U Yiup Too 
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18-SEP 


AX/VMS 


Page 9 UE" 
UETPSY ° 6 


1986 99:49:07 SREIUETINI 100.MAR; 2 
; Name pointer table 
3; ASCIC name table 


0 ; Privilege entries 
; Bit of priv or quota to check 
; 0 results 
; Address of priv or quota ASCIC ALLSPOOL 
; Ascic ALLSPOOL 


; Quota entries 


000006E7 4 1 _- g BURL PRIV_CNT+QUOT_CNT 
00000783 wae rau eek PRIV_CNT+QUOT_CNT 
ee 5 “ PC1... = OFFSET 
§ PC2... = EXPECTED 
7 PC5... = NAM_PTRS 
8 PCS... 
»LIST 
0 ITMENT ALLSPOOL , 04, 
seoctt 7 ? omreles anaes 
009 6 5 3 
L N 
Seanee?, Bech Ti 
09 Ors: E7 “ADbne sé PCS... 
ALLSPOOL: 
4C 4F GF 50 53 4C 4C 41 90" eASCIC /ALLSPOOL/ 
C 1 LIST MEB 
§ § ITMENT BUGCHK , 17, 8 
ITMENT BYPASS , 1D, 
79A 4 ITMENT CMEXEC , O1, 1 
Al 5 ITMENT CMKRNL , 00, 1 
7A8 6 ITMENT DETACH , 05, 1 
7AF 7 ITMENT DIAGNOSE , 96. 1 
Be 8 ITMENT EXQUOTA , 13, 0 
7¢ 9 ITMENT GROUP , 08, 1 
C6 40 ITMENT GRPNAM , 03, 1 
cD 41 ITMENT LOG 10 =, 07, 1 
D4 4g ITMENT AT . oo. @ 
07DA 4 ITMENT NETMBX , 14, 1 
07E1 44 ITMENT NOACNT , 98. 
07E8 45 ITMENT OPER - Bee 
O7ED #6 ITMENT PFNMAP 3, 1A, 
F4 4 ITMENT PHY_IO , 16, 1 
7F 48 ITMENT PRMTEB , OA. 1 
5 49 ITMENT PRMGBL , 18, 0 
29 ITMENT PRMMBX , OB, 1 
19 1 ITMENT PSWAPM , OC, 8 
1 2§ ITMENT SETPRI , OD, 
3 5 ITMENT SETPRV , OE, 1 
4 ITMENT SHMEM ° 18. 
5 ITMENT SYSGBL , 19, 
§ ITMENT SYSNAM , 9¢. 
ITMENT SYSPRV , 1C, 1 
4 3 ITMENT TMPMBX , Of. 1 
4 ITMENT VOLPRO , 15, 1 
of $i ITMENT WORLD » 10, 0 
54 $3 ITMENT ASTLM - 00, 55 
5A ITMENT BIOLM . O1, 18 
9 4 ITMENT CPULIM , 03, 
5 ITMENT ENQLM . 04, 
4 96 ITMENT DIOLM » Wee 
ITMENT FILLM , 06, 


vlna 
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VAX/VMS UETP USER INTERFACE PROGRAM -SEP=-1 v04-0 P 10 
ReadOnly Date 1S-$Eb=] 986 99:49:63 LORTEES ease yer mare P28 12, 
3 T PGFLQUOTA, os: ps 
T PRCLA 5 . 
T TOQLM , 09, 20 
E GETSYI -11! 3; SGETSYI arg List for... 


4,SYI$_SID 3 «SID register... 


4,$vi PAGEF ILE LFREE =; ...Space remaining in page file(s) 


1 91 04 
00000000' 90 F7" 

“ADDRESS, PAGE_S1Z 
LONG 


04 
00000000' $08 +8 


NOTE: The code which ogerebes ofl captes should Limit itself to Look ing at 
PRS_SID_TYPMAX (+1, to include H al or unnnous entries) entries. 

order td prepare for py enase CPUs t though, we define a constant, CTT _LENGTH, 
based on what we know is down the road. This constant in the code must also 
be patched if entries for new CPUs are patched in. 


Negeri ye entries in the Totiourng, fepies appl te CPUs for which there is no 
explicit CPU tyes wert n @.9., tig hel souete multiple CPU configurations 
such as the 11/782, ba up CPUs Like the 1/9 


No Tee tage entries for this table 


E ' 
7 
2 
74 
4 o? 
Hae ta; 
AA 7 
AA 7 
AA 
AA 
AA ; 
AA 
AA 4 
AA 5 
AA $ 
AA 8 
9 
AA 0 tpu TYPE. TABLE ; Table of known CPU types 
0 AA 91 BYTE 0 : Illegal or unknown type 
1 O8AB 3 “BYTE PR$_SID_TYP7 : STAR 
‘ AC 39 “BYTE PRS"SID-TYP7 ; COMET 
AD 94 «BYTE PRS_SID_TYP7 ; NEBULA 
4 AE 95 -BYTE PRS_SID_TYP790 ; VENUS 
5 AF 38 -BYT 5 ; SCORPIO (reserved) 
$ 9 -BYTE 6 3 ALS preserved? 
1 98 -BYTE PRS_SID_TYPUV1 3 + pres 
8 99 -BYTE PRS-SID-TYPUV2 ; Mm CrovAn Sate 
00000009 400 CTT_LENGTH = PU TYPE- TABLE ; Item count of known CPUs + unknown 
00000885 401 -BLKB 3; Expansion room for new CPU's 
; End o 
? End of CPU_TYPE_TABLE 
rh 3 Wogetive o yatrige for CPU_NAME_TABLE 
3 5 405 3; Expansion for new CPU configurations 
. 9 4 $ “ADDRESS A787 ; Dual SUPERSTAR 
g: dD 4 tH A? 3 ; SUPERSTAR 
989° 1 4 3 RESS A7 3; ATLAS 
: & pte BLE: ; CPU names address table 
$B 4 ADDRESS UNKNOWN_CPU : Illegal or unknown CPU type 
. 9 41 eADDRESS A? : STAR 
Ae » 41 eADDRESS A? ; COMET 
. 41 -ADORESS A? ; NEBULA 
. 3 414 -ADDRESS A8600 ; VENUS 
. 415 -ADDRESS ASCORPIO ; SCORPIO 
a D $18 -ADDRESS ANAUTILUS ; NAUTILUS 
D0009A0' ! 41 -ADDRESS AUV ; SEAHORSE | 
: 213 -ADDRESS AUV 3 microVAX chip 
9 41 -BLKA 2 : Expansion reae for new CPUs 
: ? 9 ; End of CPU_NAME_TABLE 
1 4 § 3; Negative entries for CPU_SCALE_TABLE 
het 1 4 . ; Expansion for new CPU configurations 
000411 5 6426 FLOAT 2.25 3 Du at's SUPE RSTAR 


v04-0 p 
EVINITOO.MAR;2 “79° 


8 3 
vent NAOT Eye gs tenrace roatln ase REE 00 4%:35 ECE 


40C 939 425 «FLOAT 1.5 ; SUPERSTAR 
ce Hee 
941 427 CPU_SCALE_TABLE: ; Scale to balance loads vs CPU perf 
80006 0 941 4 8 -FLOAT 1. i Illegal or unknown CPU 
0004 945 & FLOAT 1. 3; STAR 
56 404 949 430 «FLOAT g. ; COMET 
004 94D 431 «FLOAT . ; NEBULA 
3 41 9 4 § eFLOAT 4. 3; VENUS 
004 9 4 «FLOAT 1. : SCORPIO 
3 408 9 434 eFLOAT 1, 3; NAUTILUS 
4 | 95D 435 FLOAT 1.0 ; SEAHORSE I 
3 rs 3) 4 § «FLOAT 1.0 3 microVAX chip 
096D 09 4 Mit. = : Expansion room for new CPUs 
43 : 3 ; End of CPU_SCALE_TABLE 
96D 440 UNKNOWN_CPU: : Ikl l k P 
ME 57 GF GE 4B 4E 55 90" ee 441 “TASCIC \UNKNOWN\ stg colar cemntegrae de, 
975 442 A780: 3; STAR 
30 38 37 2F 31 31 0" 4: 44 eASCIC \11/780\ 
97C 444 A750: ; COMET 
30 35 37 2F 31 31 69" 3443 445 eASCIC \11/750\ 
98 446 A730: ; NEBULA 
30 33 37 2F 31 31 80" 3s 44 eASCIC \11/730\ 
98A 448 A8600: ; VENUS 
30 30 36 38 go 4 14 449 -ASCIC \8600\ 
4H 0 ASCORPIO: ; SCORPIO 
4F 49 50 52 4F 43 53 89" Boer 1 eASCIC \SCORPIO\ 
97 § ANAUTILUS: 3; NAUTILUS 
97 -ASCIC \NAUTILUS\ 


53 55 4C 49 54 55 41 4E 8" 9 


4 
4 
4 
4 
997 
9A0 454 AUVI: 
49 20 45 53 52 4F 48 41 45 53 00° 09A0 4 
& 
4 


SEAHORSE | 


eASCIC \SEAHORSE I\ 


4 
5 
6 AUV2: ; microVAX chip 
7 eASCIC \microVAX chip\ 


OA 
68 63 20 58 41 56 6F 72 63 69 6D 99" 
i 


9 
389 458 A782: ; ATLAS 
32 38 37 2F 31 31 99" be 138 eASCIC \11/782\ 
460 A785: ; SUPERSTAR 
461 eASCIC \11/785\ 


35 38 37 2F 31 31 90" 


9 
9 
9C 
9C 
3 462 A787 Dual SUPERSTAR 
: - Dua 
37 38 37 2F 31 31 90° 907 46 eASCIC \11/787\ 
9C7 
9CE 464 
9CE 465 USER_LIST: ; GETJPI item List for USERNAME and WS size 
C O9C 46 «WORD 12 
2. 09D 46 «WORD JPI$_USERNAME 
00000040" 09D 468 -LONG BUFFER 


iy | 
Lagi NSLS GeTE Ise tmerace omnia” CHEESE OFFS NODE Stet Doman? Uh 


sal 
a) 


0000000 


- LONG UTLEN 
«WORD gore yet" 


oo 
vv vv vv 


S Jubak de- dade ddI ee ee a 
vv 


COO DO ODDO WODOOWO NNN 


vv 


90000963" 
CO0OpRY 


—IIO* 
FUN" OO ONAUE WN" O OONOUS wn 00 
. 
_ 


Po tt 


0 13, 495 WORD 
000009c?" 
00000000 


OOoOooococeoo 


Oo 

Oo 

Oo 

So 
PPPrrrrrrrrrrrr Yr rrr rr rooowowoooonono 


WWI = = = OOO OOO 7 AAA MMMmm 
WANMIM A PAVOM SO LNIM POONMO POMOM PO Hom > 
7 


vv 
ra 


OF 
000009¢B" 
00000000 


233 
hbk 


1$_PGFLQUOTA 
1_PGFLQUOTA 


vv 


040E 
QO0009CF * 
aaa +9 


>>> > 
PRee 
> 

v0 
eo 


00 st 
0000 Oe OAse 


vv 


zu 
ot 


$_CURPRIV 
Vv 


= 
oO 
. 

_ 
oO 
z 
o 

w” 
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SYM_NAM_TABLE: ; Names of parameters in local gyabol table 
:; If defined they represent: 
SYM_P1: 3; phase 

-WORD  P1_LEN, 

-ADDRESS PT_NAM 

SYM_P2: > pass count 


*O0000ABE* OA 


© 
= 
>>>> 
Mw 
ro 
PUPP IVIL VISTI USPTO SUSVSVSVUSVSVSVSV SUSI 


UEWN OO OONOA UE WI - OOONOUE WIN O 
aa 
oO 
z 
a 
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ee Jo 


age 13 
. (4 


0 002" 0A76 ~ WORD P2_LEN,0 
$6000898" ACA nit oe .ADDRESS P2_NAM Pe De 
: ; number of loads 
0000 0002" OA7 = «WORD P3_LEN,0 
Soo00a93" A ; p sym po, “ADDRESS P3_NAM os 
_P4: ; long or short report 
0000 0002' OA -WORD P4_LEN,O 
800089 , A A or wan, “ADDRESS Pl _NAM 
31 50 A inne sy eT, 
0000000 . § pa P1_LEN = .-P1_NAM 
32 50 0A9 : as ee - ee 
00000002 We a P2_LEN = .-P2_NAM 
3350 0A9 oc. .+ eer eee 
00000002 ae? tg a sn P3_LEN = .-P3_NAM 
3450 0094 544 ~ ASCII /P4 
00000002 pare og P4_LEN = .-P4_NAM 
0A96 47 PHASE_PROMPT: ; See if full UETP run is wanted 
6E 75 52 OA OA OD OOOD0DA9E'O10E0000" 0A96 548 “  ,ASCID <CR><LF><LF>\Run “'ALL'’ UETP ph . T’’ CALLJ? 
of 8 ee OA 98 9B 2 00 af 9108 ete LF><L un "ALL" UE phases or a ‘'SUBSET’’ CALL]? \ 
20 61 ¢0 72 OF ¢ $e 73 61 2 0AB0 
4C 41 5B 20 22 54 45 53 és HH 3 t¢ gaat 
A 549 
A 550 COMMA_BLANK: : § t bet h oan 
20 2¢ 99" : $51 er ASCIC \, \ : efor WHICH. PHASE SFAOL string 
A 5 
OA 224 NEW_LINE: ; Continue List of phase names... 
09 OA OD 9" oA 554 eASCIC <CR><LF>\ \ 3 «..0M @ new Line 
A 55 
OA 536 sseee ghee 1 ™ ; Allow selection of UETP phases 
or 3 et 2 A 2} 20 gb 1 $3 20 73 x 558 \'7'/You can choose one or more of the following phases:!/!/!_!#(AC)\ 
65 72 6F 6D $3 i 6F § $2 6E 6F $8 A 
$¢ of gf 66 20 § 68 74 20 66 gf BA 
; 65 73 61 $ 0 $y 67 gf ? 7 6F 
43 41 28 23 21 SF 21 2F 21 2F 21 3 


59 
369 WHICH_PHASE2: 


29 73 28 65 73 61 68 50 OA 9A 9B a eASCIC <CRD><LF><LF>\Phase(s): \ 
E 


6 
65 ; We here take advantage of the Run Time Librery SLIB_KEY_TABLE's internal 
9 ; code so that we may generate descriptors of the keyword strings in 

; parallel with generating the strings and their pointers. The sequence 
06 3; of .ERROR statements below should guard us against internal changes to 
rt ; the documented macro. 
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oOwom 
—Owo 


PAA AMIRI TUPI PO PIPIPIPIPUPIPIPIPIPIPIPIPIPONINIPIPOPONNPPD 


AOOOOOOOOVVIVTVVTVTVVUVTVTVOVVVVVVCTVTCTCC0T"0C0C0"0€8 


Pettit ttt ttt ttt tt tt tt 


tt at at = I I DOO DODOOOCOCOOOO0O OOO OWWOW 0000 NIN NINN NINO 
FAN OOD NAME WIN SO OD NAME WIN 0 OD NA UE WW OO ODNAOUE WT 


DARDPEPEDP PDP DP DPD DED DPE DPE DPD Daa 


ow 


SBeesesseeeses 


48 50 50 54 45 55 Socoencs"9 1059099" 
>) 41 
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1878 P=} 198 90: 4f' §3 UETPSY.SRCJUETINITOO.MAR;2 ° (4) v4 
;LIBSSK_NPAIRS counts entries in $LIB_KEY_TABLE 
«MACRO ~ LIB_KEY_ENTRY STRING, VALUE 
-1F EQ LIBSSA Nene :"First time expand ng this macro, define new stuff 
tUETP P$SA_THERE = LIBSSA_STRLOC 
LIBSSA Thor = LIBSSA_STRLOC + <8 * LIBSS$K_NPAIRS> | 
-ENDC ; EQ LIBSSA_HERE+1 
ADDRESS LIBSS$A_STRLOC 
LONG VALUE 
LIBSSA sg 
-=UETPS$A_THERE 
KEY = STRING. DESC: 
woe ZLENGTH(STRING) ,O 
DRESS LIBSSA_STRLOC + 1 ; 1 char into ASCIC str 
UETPSSA THERES 
-=LIBS$A_STRILOS 
uit \STRING\ 
LIBSSA stRLOCE. 
»=LIBSSA_HERE 
-ENDM S$LIB_KEY_ENTRY 
LIBSSA_HERE=-1 ; Flags first SS$LIB_KEY_ENTRY expansion 
SELECT_PHASE: ; Allow user to seléct Between ALL... 
SLIB_KEY Se SS <e 3; «+-phases or a subset of them 


<SU uBSeT T,1> 
> ; End of $LIB’KEY_TABLE 


LIB$$A_HERE=-1 ; Flags first SS$LIB_KEY_ENTRY expansion 
PHASE _TABLE: 
$SLIB_KEY_TABLE < - 
Z<DEVICE>, >= 
<<LOAD> >- 
<<DECNET>, >= 
<<CLUSTER>,>=- 
> ; End of SLIB_KEY_TABLE 
-MDELETE $SLIB_KEY_ENTRY ; Remove our own version of the macro 
IF NDF a heey =THERE 
ERROR ; 5 preerae depends on the existence 
ERROR : of ssi 18. KEY_ENTRY within the SLIB_KEY_TABLE 
ERROR ; definitiOn. “It must be fixed to uSe some 
ERROR ; new definition so that it can generate 
oeenes : tables ref TABLE. to the ones from 


-ERRO $LIB 
~ENDC ; NDF Oe TPésAy THERE 


UETPPHASE : ; Logical name for UVETP.COM phase names 
-ASCID \UETPPHASE\ 
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WS_INUSE_DES: 
20 20 20 20 000002F2°010E0000' ASC 


TINITOO 1 P=1984 
vite 1 Read/Write Data 13-3657} 3B 
1 -SBTTL Read/Write Dat 
0000 3 : "PSECT RWDATA.WRT,NOEXE , PAGE 
1 WELCOME: 
Go0g90 ie ? § LONG WEL COML 
65 6D 6F 63 6C 65 57 09 OA OA QA D 8 4 oA < R>< F><LF><LF 
20 eB 4D 38 zr 8 41 58 20 of 4 9 14 SCI <CR><LF><LF><LF>\ 
6E 6F 69 2 65 56 0 54 45 3 
D 5 VERSION: 
soobkoe® 5 é § -BLKB 8 
A OD «ASCII <CR><LFD> 
0000002F 3 f ? 8 WELCOML = .-WELCOME-8 
037 630 TTCHAN: 
0000 3 t 1 -WORD 0 
039 6 : ERROR_COUNT: 
00000000 th e : -LONG 0O 
O30 636 FAO_BUF: 
0000 012C 8 D 6 $ ” -WORD TEXT_BUFFER,O 
0000004D' boee 638 “ADDRESS BUFFER 
t3 et BUFFER_PTR: 
0000 012¢ ik 641 .WORD TEXT_BUFFER,O 
0000004D' Shep ot§ ADDRESS BUFFER 
O06D 644 BUFFER: 
00000179 040 663 -BLKB TEXT_BUFFER 
20 4C 55 21 20 2¢ 00000181'010E0000" ne eH PASSAMSCTASCID \, UL \ 
yes as PS eI vO gene spb 
18D 650 LOAD_MSG: 
20 4C 55 21 20 €$ 9909019? et OE E0000 0° ! D 651 eASCID \, !UL load!%S\ 
1A 63¢ 
1A 653 PARAM_MSG: 
0000 0000 | 1A o38 WOR 
000001AA 146 655 sa ypAdORESS O68 an _BUF 
000002D6 O1AA $28 ~  .BLKB TEXT_BUFFER 
pe $38 LOADS_DESC: 
000 D6 =—.: 660 . LON 0 
titdaitdse DA 96] -ADDRESS 0 
DE oe8 CPU_SCALE_DES: 
20 20 20 20 000002E6'010E0000' 94 re eASCID / / 
EA 66 
EA 
re 888 


oo 
ao 
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Welcome to VAX/VMS UETP Version \ 


Channel for the terminal 


Error count 


FAO output string descriptor 


Ap -ASCID buffer for misc. strings 
A word for Length, a word for desc. 


FAO output and other misc. buffer 


Used in startup msg 


; More for startup msg 


veoh is where the parameter portion 
; «Of the startup msg gets assembled 


; Loads general purpose desc. 


; Descriptor for CPU scale value 
; Descriptor for percent of WS in use 


; Storage for percent of WS in use 


1 
( 


5 
5) 


= 


gog90000 ot Soe 
gp0g900e 
gp09000e, 
gp0n0008, 


0000055A 
00000659 


P2_DESC: 


-LONG 0 
-ADDRESS P2_BUF 
P3_DESC: 


“ADDRESS P3_BUF 
"LONG 0 
“ADDRESS P4_BUF 
" \BLKB  MAXSYM_SZ 
" \BLKB  MAXSYM_SZ 
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v04-001 Read/Write Data 13-3Ep=}9be 99:19:67 LOEtPer.saeioeyinisoo.mar:2 2% 8) 
CCCDSF4C re 9 «LONG PER_WS_INUSE ; This is a floating point constant 
FA os DISK_BUFFER: ; System disk name 
ore FA 7 «LONG _LOGNAM_SIZE 
8 F 74 ~ADOR +4 
004 ? 7 -BLKB LOGNAM_SIZE 
401 677 DEVBUF: 3; Gets devi l f SYSSCOMMAND... 
0000405 94 678 \BLKL 1 naw. 
4 680 MSG_BLOCK: ; Auxiliary $GETMSG inf 
00000409 0405 68) BKB 4 presincd = 
00000000 188 e tone te 0 ; Floating point format memory page count 
40D 685 PAGE_BUF: ; String sto f i 
00000005 ne (f ; q ome ring storage for memory size 
00000415" 0411 6 ADDRESS .+4 
Q000041A #13 ons B 
41A 690 QUAD_STATUS: ; 10SB f isc. t i 
00000000 00000000 Bata 691 QUAD 0 Se a cans oh ect 
4 : $98 STATUS: ; Status value on program exit 
00000000 ° ¢ eRe -LONG 0 
426 696 EXIT_DESC: ; Exit handler descriptor 
00000 426 = 69 ‘ 0 
QOO00D7A" 042A 698 ADDRESS EXIT_HANDLER 
000000 4 ; 99 ‘ 
00000422' ¢ £0 -ADDRESS STATUS 
6 702 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 ° ? -LONG 0 
a © FLAGS: ; Miscellaneous Ue ody 
00 A -BYTE 0 ; See Equated Symbols for definitions 
SYM_VAL_TABLE: ; Buffers for parameters P1-P4 
F 
, 
4 
4 
4B 
48 
i 
: 
B 
A 


OWAR RRR RR RRR ERR RRR RRR RRR RRS 


Mw 
> 
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CANE OOONOAUL WN ODONG = 


Sit it i tn St te Di NN Ne i i i i be be ee, 


9 


= 
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00000758 $ 7 = -BLKB MAXSYM_SZ 
00000857 07 ° ~"" BLKB = MAXSYM_SZ 
ANSWER: i; Answer buffer desc 
00012C gms : «LONG Tex? BUFFER 
00 3 de 8 4 4 ADDRESS . 
000988 F if 5 -BLKB Téxt BUFFER 
988 > OUTLEN: ; Output string desc 
QOOOGRSr OSBF 789 ADDRESS” 
. +44 I -ADDRESS ANSWER+8 
00000000 38 Se CPU_ SCALE float 0.0 ; This CPU's scale factor 
90000000 444 748 PASS COUNT : ‘ 0 ; Total pass count 
998 745 LOAD_COUNT: ; Total load count 
00000000 oe reg . LONG 
99F 748 VECTOR: ; Message vector for SPUTMSG 
0003 O99F 749 «WORD 3 ; Arg count = total number of Longwords 
oe) 9A1 750 «WORD “80001 ; Message flag 
00741130 O9A 751 - LONG ye TPo TEXT ; Message ID 
001 QO9A £36 «WORD ; FAO arg count 
0000 O9A9 75 ORD 0 ; New message flags 
9AB 754 MSG_DESC 
00000045" ~~ £3 LONG BUFFER_PTR ; Address of message descriptor 
SAF 29 WS_SIZE: ; GETJPI results List 
00000000 aa £38 28 asta 0 
00000000 $63 760 ~ LONG 0 
9B 761 JPI_BIOLM: 
00000000 0987 166 eL 0 
00000000 3BB rer ti ~BYTLA: 0 
9BF ree JPI _cPuLin: 
00000000 09BF £68 ol 0 
9C3. 767 JPI_ENQLM: 
00000000 09C¢ 708 al 0 
00000000 99c7 770 VE =DIOLR: 0 
00000000 ate rr aPt_FILLR: 0 
OCF ng JP1_PGFLQUOTA: 
00000000 O9CF 774 -LON 0 
903 775 JPI_PRCLA: 
nin 3p 5r8 JPI TOL? , 
00000000 0907 178 = “",LONG 0 
908 779 PRIVS: 
00000000 00000000 i -QUAD 0 
9E MEM_SIZE: ; Total physical memory size in pages 
00000000 O9Es 788 "LONG 0 4 


c 
5 


verte 100 


00000000 
00000000 
00000000 
00000000 


000009FB 


000A 


00000000 90000000 
00000000 00000000 


ooo 
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.LONG 0 
MEM_MODIFY: 
. LONG 


SWAP_SIZE: 
«LONG 


PAGE _SIZE: 
-LONG 0 


-BLKL 1 


94 

32 

i 

i 

a} ; CLI call back request descriptor 
88 CLI_REQ_DESC: 

4 BYTE 

os 

NG 

08 


Pest 


a 98:49:69 
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Physical memory not being used now 
Physical memory on the modified list 
Count of free process entry slots 
Secondary storage for paging in pages 


S$GETSYI returns SID register here 


Get local sym is what we want to do 


Desc of symbol name - CL1$Q_NAMDESC 
Desc of returned value -CLI$Q_VALDESC 


veyiN 100 


VAX/ 
RMS- 


“5 


MS UETP USER INTERFACE PROGRAM , 


2 Data Structures 


AQF 1 

AOF 1 - ALIGN 

A 1 

Al 13 LOG_FAB: 

Al 14 SFA FNM 
Al 15 RAT 
Al 1 FAC 
Aby 17 LOG_RAB: 

A 18 SRAB FAB 
A 1 RBF 
A6é 20 RSZ 


1SrSEp=1986 99:49:67 


.SBTTL wen 32 Data Structures 


AX/VMS 
UETPSY.S 


; Log file FAB 


<UETP.LOG>,=- 


Puf 


; Log file RAB 


LOG _FAB,- 
UF R,- 
TEXT_BUFFER 


Macro yer P 
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0008"CF —9000"¢ 
1 


0000 
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DE 


7D 
DE 


De De Be Se Se Be Se Oe Se See Se Se Se Be Se 
aa 


OOooooceo 


COOOCOCOCOCOoOoOoOOoooOooo 
UE & SWAIN Ss SB hho ee eee eee 
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UETPSY. 


SOT Tt Main program 
-PSECT UETINITOU,EXE ,NOWRT ,PAGE 


«DEFAULT DISPLACEMENT ,WORD 


UETINITOO queries the user for UETP run-time information and welcomes 
the user to VETP. The user is told what CPU type, memory Sent sgeres ten. 
and system disk type he/she is running on. The user is prompted for the 
number of complete passes he/she wants and if he/she responds with a 
carriage return the default is one pass. The user is prompted for the 
number of parallel simulated users that he wishes to have used in the 
load test portion of the UETP. If he/she responds with a carriage return 
UETINITOO calculates an appropriate value for the configuration that is 
being used and informs the user as to what that value is. The user is 
prompted for the report format (long or short) that is desired. If a 
carr age return is the response, then long report format is used. 

The UVETP.LOG file is first created in this program as well. The user 
is allowed to choose to run the entire UETP or a subset of its phases, 
with the default being the entire UETP. 


ENTRY UETINITOO,*M<> ; Entry mask 
MOVAL SSERROR, (FP) ; Declare exception handler 
SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
SOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
SCREATE FAB = LOG_FAB,- ; Create the log file 
R = RMS-ERROR 


SCONNECT RAB = LOG _RAB,- 
ERR = RMS_ERROR 


mMOvVa G*SYS$GQ_VERSION, VERSION ; Get the system version number 

MOVAL WELCOME ,ASG DESC ; Message desc 

SPUTMSG_S MSGVEC = JECTOR,- Go ahead and output msg 
ACTRIN = ACTRIN Output it to log file as well 

SSETPRN_S PRCNAM = TEST_NAME Set the process name 


SGETJPI_S ITMLST = USER LIST ; Get the username, privs and quotas 
CMPC ACHT MARE ACNT RARE +6. ; Are we in the right account? 


; BR if no. 


$ ee 
PUSHAL WRONG_ACCOUNT ; ..-else report and exit 
; Arg count 


PUSHL ETPS_TEXT!STSSK_ERROR : Signal name 


; Parameter count 
MOVL #SS$_BADPARAM, STATUS ; Set the exit status 


BRW ERROR_EXIT ; Give the user the last rights 
SGETDVI_S DEVNAM = SYSSCOMMAND,- ; Get the name of. 
- c 


1O0SB_ = QUAD_STATUS,- ; ...device which may abort test 
ITMLST = C D_ITMLS 
LBS QUAD_STATUS, gs ; BR if all went OK 
MOVZWL QUAD _STATUS,R ; We had a problem. Extract error code 
GETMSG_S MSGID = R2,- ; Get message text associated with error 
MSGLEN = BUFFER_PTR,- 


L_ 3 
vst KOHODE ge USER twrerace Pocmbn © UCHESREE O8HH:89 ICID SeSeNTS Ro asa 


(8 879 BUFADR = FAO_BUF 
at 44 4 pusnas BUFFER_PTR ; Let user know what went wrong... 
00741132 F 8% O0E PUSHL #UETPS TEXT! STS$K_ERROR 
O1A6" f rr ‘ ; PUSHAG ¢ MMAND_DVI_FAILED | 
00741132 J DD Ef 5 PUSHL ‘ ETP$_TEXT!STS$K_ERROR 
of 4 3 FS § BRwW aoeee EXIT 3 «.-and bail out 
O401'CF O 4 ¥ ora 83 208: cree eoe TERM, DEVBUF 3 Were we we. invoked from a terminal? 
O43A'CF 04 af 1 0 81 $82 #TERMINALM, FLAGS > Set foseleal @ a9 
} 4 4 ASSIGN_S DEVNAM = ‘Wena PTR,- ; Set up for brat? ASTs if we were 
= 
11 38 $Q10w_s CHAN = TTCHAN En nable CTRL/C ASTs... 
11 94 NC = #10$ sétwone ! io M_CTRLCAST,= 
11 95 4 = CCASTHAN 
org oF 18 } PUSHAL I TEST _NAME j «eeand tell the user... 
00748328 8F DD O13F 898 PUSHL ayeres ABORTC!STS$K =SUCCESS 
00000000'GF 03 72 44 $08 CALLS G*LIBSSIGNA 3 «.ehow to abort gracefully 
14€ 901 "  $TRNLOG_S LOGNAM = MODE : Get the run mode 
14¢ 90¢ RSLLEN = BUFFER PTR,- 
146 90 RSL BU : FAO_BUF 
OO45'CF 7F 016 904 PUSHAQ BUFFER_P ; Convert to upper case 
00000000' OF Op if 169 308 CALS oy Hee lcas 
0030'DF 002C'CF 8 1$0 309 MATCHC DUMP,@DUMP+4,- ; Are we to run in dump mode? 
O04D'CF 0045" cf ' 178 908 tia PFER. PTR, BUFFER page 
O43A'CF 10 as 183 910 BISB2 #DUMPM,FLAGS : Else set the flag bit 
0188 911 35%: 
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Go through this process’ privileges and quotas. If something 
nonstandard shows up, give a warning. 


PUSHL #UETP$ TEXT!STSSK _WARNINE ; Push the signal name 


PUSHL ERROR COUNT ; Finish off arg list... 


52 D4 CLAL R2 ; Init an index variable 
E MOVAL STR,R : List non-standard privs first 
54° F ooge cree ef 40$ MOVZBL OFFS TER Ck2 ‘. : Get the offset of the priv 
53 0908. cr O01. S4sCOdSF EXTZV VS 4R3 ; Get the priv 
3 064B'CF42 D1 019 CMPL XPECTED R24,R3 : Check it 
7 9 & BSBB ; Br if bad 
E7 52 E F ° AOBLSS #PRIV_CNT,R2,40$ i; Do all privs 
2BD' CF E A MOVAL sik 3 Now we're Listing non-standard quotas 
54 86 4'CF4 Bf A 60$: MOVZBL OFesete cRe eet phe offset of the quota . 
O9B3'CF44 64B'CF4 D1 B CMPL XPECTED aon” JPI LASTUMERAI. 3 
§ i 8B 6SB8B 0 er "be d 
EB 52 F 8 AOBLSS #PRIV_CNT+QUOT_CNT,R2, 608 ; Do all quotas 
17 OG3SA'CF O03 €E5 C BBCC #PRIV_PRNTV,FLAGS,70$ ; Onty print the ending message once 
5O'CF OF C PUSHAL aN NOSTR ; push the message address 
600) 99 F DOD C PUSHL 1390? the arg count 
90741 130 8F DD 01D PUSHL AveETP TEXT !STSSK_ WARNING “push the signal name 
00000000 ' GF 3 «FB D g°LTBSS! ; print the ending error message 
69 «11 D 70$: BRB 136 
E : Subroutine to tigt non-standard privileges and quotas. 
E Bos: BEQL ; Don't t complain if priv/quota is OK 
2F 043A° E BBSS gonay -PRNTV,FLAGS,90$ ; Only print error message header once 
. E INCL ERROR COUNT ; Bump the error count 
. E PUSHAL STR RSTR: ; Pus the string address 
OOOF F PUSHL #*XF0001 Push the arg count 
0074 . 
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PUSHAL TEST_RAME H 
990) PUSHL #*x10002 : 
074 PUSHL 2 ETPS peegunnoc !sTS8x_ ERROR : ...for error box message 
00000000' } ons CALLS -G*LIBSSIGNA ; Print the error message 
1 SFAO_S CTRSTR = CTRSTR,- 
1 OUTLEN = BUFFER_PTR,=- 
1 gyt BUF = FAO_BUF,- 
1 P = NAM~PTRS(R2),- 
P2 = R ; Generate the string 
PUSHAL pn PTR : rues the address.. 
PUSHL 1090) -the arg count... 
PUSHL err TEXT STSSK_ WARNING the Signal name. 
00000 & CALLS tact SIGNA ; .e.and pr nt the message 
0 4 100$:  RSB : Return for further checking 
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00000000 ' GF if 
83 1 

58 ' & 

OE OOF7'CF 17 €1 
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00000000 ° GF oS 

58 cE 

O993S'CF O941°CF48 50 

58 OB8ES'CF48 DO 
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kicker’ CPUs have cheeen to keep 


whether we have a multiple CPU 


rin 
PYon BxESGL_MP, which indicates the 
coupled, second processor if non-zero. 
Note that we don't use the VMS macro, 


Get misc oxgten info 
Figure the CPU type from that 


See if VMS knows of that CPU... 


-+-and convert to that type's offset 


BR to set up for the correct CPU 
Illegal or unknown CPU 
STAR=based CPUs 

COMET 


microVAX chip 
Fudge so we can patch in new CPUs 


; Default value - illegal CPU 


; Are we pul t {process ine! 
: BR to check SUPERS 
; Use a different offset if we are 


TAR if not 


We're olrsedy correct if 11/780 
Set up SUPERSTAR offse 

Are we multiprocessing as well? 
BR to get scale & text if not 
Use a different offset if we are 
Fall into default processing 


; Save the CPU scale factor 


; Ah! that's what kind of CPU it is 
; Figure various memory Limits 
; Generate the string 


Go eheod and putput msg 
Output it to log file as well 


c 
at 


at raene the number of load 
qea the £9 neers who designed 


nts to figure 
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VE 1 Main P i8 SEP 198 9 4 3 UETPSY Bae Toe Yon 400 MAR;2 . (%) 
47 1031 ;+ 
t} 1 § 3 Here we colt the CLy to get values for local symbols P1-P4, If they 
47 1 3 are not defined SYSSCLI returns LIBS_NOSUCHSYM and each associated 
sf } : ; descriptor is left with length zero. 
59 4 47 1 § CLRL R9 ; Syqtols found counter 
§ SFB'CF ODE 49 1 MOVAL CLI_REQ_DESC,R6 ; CLI request block 
AGE'CE DE O34E 1 : MOVAL SYM“NAMTABLE,R7 : Parameter names 
8 4SB'CF OD oes MOVAL SYM -VAL_TABLE,R8 ; Table for returned values 
B 04 OD : 40 ssos, "OVE #SYABOL-CNT,R11 ; Loop count 
04 A6 87 = 7D B 1 rh MOVQ (R7)+,CLIS$Q_NAMDESC(R6) ; Put symbol name desc in req block 
OC A677 F 104 CLRQ CLI$Q_VALDESC(R6) ; Init return desc 
66 «ODF 62 1044 PUSHAL (R6) ; Push address of the req block 
ail 4 Bo 9 FB 64 1045 CALLS #1,G*SYSSCLI 3; Callback to the CLI 
00000000 ' 8F 0 oi $8 1 rf CMPL RO, #SS$_NORMAL ; Did we find it 
iD 12 0 104 BNEQ 160 : BR if not 
oc 46 B 8 74 1048 TSTW $) 130._VALDESE (RO) ; Test for zero length 
1 1 77 1049 BEQL 160$ ; Br if zero length 
OC A6 =620)0=— 3B SOCOS79 =1050 SKPC #*A/ /, CLISQ VALDESC(R6),- ; Make sure we did not get all spaces 
10 B6 0 7D 1051 @<CL1$Q_VALDESC+4>(R6) 
:, 7F 4 26 BEQL 160$ ; BR if only spaces 
59 06 0381 105 INCL R9 3; Count this one found 
88 OC A6 b3 ; 1054 MOVL CLI$SQ_VALDESC(R6),(R8)+ ; Save return Length 
OC AB 2 ; 1055 MOVC3 CLIS$Q VALDESC(R6),- 3_..-and value 
00 88 10 86 0 8A 1056 @<CLISQ_VALDESC+43(R6) ,@(RB) 
58 04 C2 $6) 33 1608 SUBL2 #4,R ; Reset R8 to start of present descriptor 
58 08 £0 6 91 1986 ADDL2 4#8,R8 ; Move PTR to next value descriptor 
C4 5B OCO*éF 94 1369 SOBGTR R11,150$ ; Repeat until we tried them al 
59 =—D5 97 1061 TSTL RS ; Were any symbols defined? 
38 12 99 1906 BNEQ PHASE ; BR if we found at least one 
O05 O43A'CF 0 E1 9B 106 BBC #TERMINALV,FLAGS,PHASE ; BR if we are not connected to a 
Al 1064 ; terminal -we will use default values 
O43A'CF O02 88 Al 1065 BISB2 #PROMPTM,FLAGS ; No parameters were defined and we are 
A6 1066 3 connected to a terminal so set the 
03A6 1067 : flag for prompting 
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1 3¢ 
1 ? 3 See if the user wants to run the entire UETP or a subset o. its phases. | 
1 3 Define a logical name, VETPPHASE, with the result. UETP.COM will use 
1072 ; the translation of UETPPHASE to execute the appropriate phase(s). 
197 * 
1075 PHASE: 
31 pasa"es 01 1 1 BBS #PROMPTV,FLAGS,10$ ; BR if we need to prompt 
0988 ' CF ae" 107 MOVW P1_DESC,OUTLEN ; No prompting, phase is P1 param... 
F 1 4 BEQL 408 3 ..-dut supply default if null 
Boece 107 PUSHAQ P1_DESC ; We have some request, so... 
4 fs yy 9 PUSHAQ P1_DESC 3 «+-for matching’s sake... 
30s neh 2 dD 1 CALL Be -8 21 REUPCASE ; ...get it all uppercase 
0458‘ CF Be » 7 § CMPC P1_DESC,P1_BUF ,- ; Did user specifically request... 
0B4 +4 B : ? ace or Y_ALL_DESC+é ; 5a° $9 run all phases? 
s so 
O98F'CE  O45B'"CF  043B'CF 1085 MOVC3 P1_DESC,P1_BUF ,@0UTLEN+4 ; Use user's reply since there is one 
0110 45 36 1 BRwW 200$ ; Join code which has user's selection 
0988 ' CF DD 1088 PUSHAW OUTLEN ; Get user's choice - reply Length... 
pare, ce E1 1089 PUSHAQ PHASE PROMPT 3 «+-prompt string... 
57°CF E5 1090 PUSHAQ ANSWER 3 ee reply string... 
00000000 ' GF 93 3—E9 1091 CALLS #3,G*LIBSGET_COMMAND 3 ».-* for the phase(s) to execute 
08 50 3F 1936 BLBS ; BR if we could read response 
0422'CF 9 s? O3t ! oe 37 bahia ; Use error code as exit status 
098B' CF FB 1998 20$: TSTW OUTLEN ; Was there some explicit request? 
$3 FF 1096 BEQL 408 ; BR if not - supply default 
0988 ' CF 401 109 PUSHAQ OUTLEN ; We have some request, so... 
098B' CF 405 1098 PUSHAQ OUTLEN : .eefor matching’s sake... 
O0000CGC'GF 02 409 1099 CALLS #2,G*STRSUPCASE 3 .-.get it all uppercase 
004D'CF 410 1100 PUSHAL f ; This will tell which reply we got... 
pee ee 414 113 PUSHAL SELECT_PHASE 3 «this tells the possibilities... 
098B' CF 418 11 § PUSHAQ OUTLEN 3 «and this is the text of the reply 
00000000"GF 03 rf 110 CALLS @ zoh eekeee en KEY ; See if we want all or a subset 
50 00° 423 1104 CMPL “#SS$_NORMAL ,RO : Did we find a reasonable reply? 
0 4 $ 1105 BEQL 0$ ; BR if we di 
O8A 4 11 $ BSBW SYNTAX_ERROR ; Complain if we did not... 
FF7 428 118 BRW PHASE 3 ..-and start all over 
004D'CF 4 3 1108 30$: TSTL purer ; Was a subset requested (add'l prompt)? 
32 4, 1109 BNEQ 100$ ; Yes 9° do second prompt 
" 2 1339 ; The user requested all phases. Fall into that code. 
4 1116 40$: ; The user wants all UETP phases, either eget ict sly or implicitly. 
434 111 MOVAL ASE_T : Get the List of phase names... 
439 1114 ASHL #1, (R6)+,R? > ...their count... 
4 1115 CLRW PARAM_MSG ; «an accumulator for total length... 
4 1118 MOVAL PARAM BUF ,R3 3 «8 place to concatenate them... 
47 1117 508: MOVL 06) ot 3 eee the pointer to a name... 
44A 1118 MOVZ7BW (R5).R : l..the Length of an individual name... 
44D 111 ve 105), (R3) : ...the text forming the name... 
5 1120 ADDW R8,PARAM_MSG 
1121 vB “A/ /,(R3)+ 3 «.-and a separator between names... 
45a 11 : INCW § PARAM_MSG 
4 11 TSTD (R6)+ 
460 1124 SOBGTR R?7 z0s 3 ...to form the default of all names 
463 1125 BRW 306 : Go process the default List 
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Form on the stack an S$SFAOL PRMLST of UETP phece nenes, based on the List to be 
n 


passed to LIBSLOOKUP_KEY. Be somewhat clever Listing the names, inserting 
proper ppes ng and new Lines. In do ng so, remember that SFAOL uses a FIFO 
algorithm for removing items from the PRM § We'll great locate a@ worst case 
amount of space on the gtech (which is normally LIFO!) and stick pointers to 
-ASCIC strings on the List in FIFO order. The space needed takes into account 
that we could need three ppngueres ger phase name (the name, separator 
characters and newline), that the List of names has @ count of longvords at 
its front instead of a count of entries, and that we're allocating bytes, not 
sa a oe Use the SfAOL results as the prompt for the phase we want to 
xecute. 


00$: 
MOVL SP,R6 ; R6 will clean up the stack Later 
CLRL 7 ; R7 counts the .ASCIC strings 
MOVA PHASE {ARLE .AS ; RB points to the phase name List 
MULL #6, (RB) ,R ; Figure worst case of space we'll need 
SUBL y ; Preallocate space on the stack 
MOVL SP,R9 ; RY points to base of FIFO List 
ASHL #-1, (RB) +,R10 ; R10 counts phase names remaining 
; (RB now points to ptr to first name) 
MOVL #8,R11 ; R11 counts characters on a Line 
; (The Listing of phases starts one... 
1108 3; .«-tab stop from the left margin) 
ADDBS a(R8),R11,R5 :; If phase name + current Line width... 
#80, COMMA BLANK,R5,120$ ; ...* separator chars .GT. 80... 
MOVAL ry LINE. TRY)+ 3 «.ethen start a new Line,... 
MOVL #8,R ; .--figure what column we're on,... 
1208 INCL R7 3 «+.and count another .ASCIC string 
MOVL (RB) +, (R9)+ ; Put a phase name on S$FAOL PRALST 
TSTL (R8)+ ; Skip over LIBSLOOKUP_KEY assoc. value 
MOVA COMMA_BLANK, (R9) + ; Put separator chars on SFAOL PRMLST 
ADDL #2,R7 ; Count the .ASCIC strings we've pushed 
MOVL R5,R11 ; Update current Line width 
SOBGTR R16,110$ ; Loop if there are more phase names 
MOVAL WHICH_PHASE2,-(R9) ; Use second half of prompt to... 
3 ...overwrite Sparing separator chars 
PUSHL R7 ; Put .ASCIC count in front of PRMLST 
MOVL R8 ; Save pointer to the PRMLST 
SFAOL_S CTRSTR = WHICH PHASE1,- ; Form prompt for... 
UTBUF = FAO _BOF,- 
OUTLEN = BUFFER_PTR,- 
RMLST = (R8) 
MOVL R6,SP 3; (Restore stack: rid it of PRMLST) 
PUSHAL OUT 


OUTLEN 
PUSHAL yd te 
CALLS # of) JOSE TCO 
BLBS RO,200$ 
MOVL RO, STATUS 
FINI 


gs Boe 16 ing which phase to run 
Can we read SYSSC ND? 
Supply an exit Status... 
--.and bail out if we can't 
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4ED 11 ¢ 3 
SED 11 ; Now that we've got a (List of) phase name(s) from P1 or prompt, see if it 
rt i 1} : : (they) is lore) valid. Pi_DESC’can be scratch. Accunulste n PARAM_MSG. 
98B'CF 7F O4ED 1186 200$: PUSHAQ OUTLEN ; Convert possible... 
: 98B'CF 7F O4F1 11 5 PUSHAQ OUTLEN 3 ne Lewercese answer... 
00000000 gf § F 4F5 11 8 CALLS @# y srnquneaee 3 e+-tO uppercase 
2 D 4FC 11 MOVL #*h/ /,R ; We'll want a List containing only... 
A 1 4FF 1190 BSBB $ i «eeblanks and phase names... 
52 6 9 28) 137 of" #*A/,/,R2 3 ovo8e genvert other separators... 
i ..-to blanks 
56 O98B'CF 7D 2 6 1198 MOVQ OUTLEN,R6 3; Prime pune to form desc for first... 
1194 3 .+-possible phase name 
OQIA2'CF B84 Q50B 1195 CLRW PARAM_MSG ; We have no phase names accepted yet... 
53 Bie ee 0 50F 1138 MOVL PARAM _MSG+4,R3 i; «but when we do, they're copied here 
98B'CF 8B 8 119 TSTW TLER 3 special case: have we an empty List? 
re a Felts Be scl bo tar te 
; Set up to call our error routine... 
50 oo7aiion BF BO bate 00 OV —#UETPS_BADKEY ,RO SD pctlnegs 
7A =611— 05 1201 BRB 400$ 3 «and complain 
5 1202 210$ 
67 56 ¢0 3 Se? 1 08 SKPC #*A/ /,R6,(R7) ; Pass over leading/intervening blanks 
se 52B 1204 BEQL ; BR if no possible phase names left 
0438'CF 50 7D O52D 1205 MOVQ RO,P1_DESC ; Save desc for possible phase name 
1 50 20 3A 0532 1 06 LOCC. #*A/ 7,R0,(R1) : Find end of the possible phase name 
043B'CF 50 C2 0536 120 SUBL2 RO,P1_bESC > Now get the true Length of the name 
56 0 D 0538 1208 MOVa & ; Set up pointers for the next name 
0045'cr O12¢ BF 3¢ 0536 1209 MOVZ2WL #TEXT_BUFFER,BUFFER_PTR 
OO45'CF DF 0545 1210 PUSHAL BUFFER_PTR ; See which phase: out-len... 
O045'CF DF 0549 1211 PUSHAL BUFFER_PTR 3 «ee full-dsc-adr... 
00 DD 0540 1 \¢ PUSHL # 3 ..-key-value-adr... 
OBSC'CF DF OQS4F 121 PUSHAL PHASE_TABLE 3 «+-key-table-adr... 
0438'CF ODF 223 1214 PUSHAL P1_ 3 «+-Str-dsc-adr... 
00000000 ' GF 5 FB 0557 1215 CALLS #5,G*LIBSLOOKUP_KEY Sees 
50 00° B81 356 1 16 CMPW 36s S*#SS$_NORMAL,RO ; Did we get a unique match? 
E i 561 121 BNEQ 400$ ; BR if not - go to our error routine 
63 D'CF OQO45'CF 2 563 1 18 MOVC BUFFER_PTR,BUFFER,(R3) ; Copy an unabbreviated phase name 
O1A2'CF QO045"CF AO O05 121 ADDW BUFFER_PTR,PARAM_ : Include its Length in the descriptor 
a 20 90 O5 1220 OvB #°A/ /7(R35+ ; Separate phase names... 
1A2°CF B6 Y575 1221 INCW PARAM_MSG 3 »..and count the separators, too 
; Loop for another phase name 
| RES iad : BRB 2108 f h h 
O98F'DF O098B'CF 38 ™A 0578 1224 220$: LOCC Re OUTLEN,@OUTLEN+4 ; Find a separator we want to convert 
3 13 : 1225 BEQL 230$ ; BR if none are left 
61 0 90 1 § MOVB #*A/ /,(R1) ; Convert it to a blank... 
Fl 11 QS 1 BRB 220% 3 ...and look for another 
05 OS8A 1 3 230$: RSB 
HB 188 
: 1231 ; We've got our phase name List. We define a group logical name so that it 
5 1 § ; will persist beyond running this image. Note that PARAM_MSG and PARAM_BUF 
5 ! Z 3; are preserved for the FINAL_MESSAGE routine. 
3 1235 $00$: $CRELOG_S LOGNAM = UETPPHASE,- ; Define logical name for UETP.COM Label 
1 § EQLNAM = PARAM_MSG,-~- 
1 TBLFLG = ; It's a group logical name 
0085 = ==31 E 1238 BRw PASS 3; Process the next question 
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Al 1240; 
Al 1241 ; We were passed a bum phase name. That's not too bad if we're interactive, 
Al 1242 ; (just reprompt) but give up if we're not interactive (we were passed a bad 
Al 1245 ; parameter). 
Al 1 ee : 
Al 1245 400s: 
02 O43A'CF 4 E0 Ai 1 rt BBS #PROMPTV, FLAGS ,410$ ; BR if we are prompting because... 
0° DD 3A7 4 cto: | PUSH S*#SS$_BADPARAM j seeif mot we'll want add'l message 
01 BB Q5A9 1 2 PUSHR #*M<RO> ; Save LOOKUP_KEY status over SGETMSG 
5AB 1250 SGETMSG_S MSGID = RO,- ; Figure out... 
348 1 MSGLEN = BUFFER PTR,- ; ...if the message... 
AB 1 BUFADR = FAO_BUF,- 3 «.-associated with our fail code... 
5AB 1 FLAGS = - 3 «needs any $FAO args 
SAB (1254 OUTADR = MSG_BLOCK 
01 e th 1255 POPR #*M<RO> ; Restore failure code 
52 0406'CF A O5C4 1 2§ MOVZBL MSG _BLOCK+1,R2 ; Make $FAO arg count more useable 
09 «#413: «~05C9 «125 BEQL ; BR if there are no associated args 
O043B'CF OF O5CB 1 28 PUSHAL P1_DESC ; Assume that the arg is the bad string 
01 DD OSCF 125 PUSHL # 
52 02 DO 05D1 1260 MOVL #2,R2 
0504 1261 4208: 
50 DD O5D4 1 66 PUSHL RO ; Yell at the user if bad reply 
0506 126 SFAO_S CTRSTR = INVALID PHASE_MSG,- 
506 1 rt: OUTLEN = BUFFER_PTR,= 
0506 1265 OUTBUF = FAO_BUF,- 
0506 1 66 PI - #P1~DESC 
O045'CF DF OQOSEF 126 PUSHAL BUFFER_PTR 
DD ate 1268 PUSHL #1 
OO7$ 1132 8F DD O5SF 1 44 PUSHL #UETPS_TEXT!STS$K_ERROR 
19 O43A'CF 01 4&1 OSFB 1270 BBC #PROMPTV, FLAGS ,430$ ; BR if not prompting 
O0D9°CF DF 0601 1271 PUSHAL SYNTAX_ERROR_MSG 
4 605 1 i PUSHL #1 
00741132 8F DD 0607 127 PUSH #UETPS_TEXT!STSS$K_ERROR 
5 > a 60D 1274 ADDL ° ; Add to old count for LIBSSIGNAL args 
00000000 ' GF 52 FB $19 1275 CALLS Re G*LIBSSIGNAL 
FE4C 31 617 A: sie st 1068 ; Politely ask again 
Te. 3 #3 C1 Q61A 1 e DOLS = #5,R2,-(SP) ; Add to old count for ERROR_EXIT args 
0422'CF 0° Bo 6g 127 MOVL  $*#SS$ BADPARAM,STATUS : Set the exit status 
06F 1 0623 1280 BRW ERROR_EXIT ; Bitch and quit 
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1 3+ 
1 § 3 if fhe prompt flag is set prompt the user for the number of passes. If 
1284 ; t is not set, try to use P2 for the pass count. If the prompt returns 
} ‘ : null, or if not prompting and P2 is null, we use the default, one pass. 
1 e 
1 § PASS: 
1E eet 01 =«€1 1 BBC #PROMPTV,FLAGS,3$ 3; BR if not pronpt ing 
308 ee DF 06 1290 PUSHAL OUTLEN ; Set response length location 
R328, F ODF ? 1291 PUSHAL PASS_PROMPT 3; Set prompt string 
O857'CF OF 1 3 PUSHAL ANSWER 3; Set answer address 
00000000 ' GF 4 ? 8 1 3 CALLS #3,G*LIBSGET_COMMAND ; Ask for the pass count 
19 E F 1294 BLBS > : If no failure than continue 
0422'CF ° 642 1295 MOVL RO,STATUS 3; else save error and 
070D 1 74 ! 38 33 BRW FINI ; bail out 
0988 CE 0443'CF DO 064A 1 38 : MOVL P2_DESC.0 TLEN ; Set P2 param Length in buffer 
O98F ‘DF SSA'CF O443'CF 28 eel ! + $$ MOVC3 P2_DESC,P2_BUF ,@OUTLEN+4 ; Put in defined pass count 
0988" CF D5 638 be TSI OUTLEN : De we have a value yet? 
P 4 r OS.cc 
O997'CF 01 8 Oeé1 1 4 MOVL #1,PASS_COUNT 3 swe@l8e save the integer default... 
0988 ' CF 4 DO 0666 1304 MOVL #1,OUTLEN 3 «--and fill in the default pass count 
O8SF'CF 37 90 0668 1 05 MOVB  #*A/1/,ANSWER+8 
eb of : 8 BRB 20$ ; Go to logical name create 
bes } 38 10$: ; Here we test for valid input - either from P2 or response to prompt 
04 DD 0672 1310 PUSHL #4 ; Push size of results 
O997'CF DF 0674 1311 PUSHAL PASS_COUNT 3; Push place for results 
O98B'CF DF 0678 1 1 PUSHAL OUTLEN ; Push ascii results 
00000000 ' GF 93 FB ort 131 CALLS #5,G*OTSSCVT_TI_L ; Save the long word pass count 
00000000'8F 50 D1 0683 1314 CMPL RO, #OTS$_INPCONERR ; Did it get input right? 
44 12 OQ68A 1315 BNEQ 2 ; Br if yes... 
05 O43A'CF gt 4 6 1 16 BBC #PROMPTV,FLAGS,15$ ; BR if not prompting 
063E 0 0692 131 BSBW SYNTAX_ERROR ; «else report the error... 
8F 11 424 : 18 BRB PASS 3 «eeand try again 
edd ! ? 15$: ; P2 is an invalid string for pass count - bitch and quit 
697 1 é SFAO_S CTRSTR = INVALID_PASS_MSG,- 
697 1 OUTLEN = BUFFER_PTR,- 
697 1324 OUTBUF = Ag BUF ~ 
697 1325 = #P2~peEst 
00009000 oF DD 0 1 § PUSHL #SS$_BADPARAM 
0045'CF OF 686 1 PUSHAL B FFER_PTR 
DD O6BA 1 8 PUSHL 
00741132 : 44 ote 1 puter #UETPS_TEXT!STSSK_ERROR 
0422'CF o0000008 rf ? oie ! at Ease BADOARAN. STATUS ; Set the exit status 
200 188% ~*~ SCRELOG.S LOGNAM = PASS_NAME,- 
90 1335 “ EQLNAM = QUTLEN, ~ 
DO 15336 TBLFLG = # ; Make the pass count group logical name 


=] 


COURS CALE. onl C t back to int 
nver n r 
000003E Bf onvert back to ope 


I 4 
VETINITOO VAX/VMS UETP USER INTERFACE PROGRAM 16-SEP-19 AX/VMS Macro V04-0 Pa 1 
v04-001 Main Program 1328 Pa} 984 99: 44} $3 UETPSY.S RE} VET 1IN170.MAR: 2 of doy 
E 3+ 
E ; The default LOADS value is determined by several system parameters. 
E 3 These parameters are extracted from the system and crunched to a 
; 3 final value. The system parameters are: 
E ; $10 CPU t modified if multiprocessor confi 
E 3 MEM_FREE pree ae He memory veer — 
E 3 MEM_MODIFY Modified main menor 
E $ WS SIZE Current process working set size 
E ; FREE_PAGE Free page file space 
: 3 SUAP™ SIZE Free process ouae slots 
; : Constants are defined in this program for the calculation: 
E ; PP_PAGE_USAGE Estimated amount of pase file used per process 
E ; 43 f- _WS_TNUSE Estimated amount of WS in constant us 
; : SCALE. Estimated CPU performance ratio ere. 11/780 = 1 
E ; The e tine used with these values is given in the strings DUMP_MSG1 
; 3 and DUMP_MSG2. 
E ° 
E LOAD: 
57 O9E7'CF gree" ce C1 E ADDL3 a MODIFY,MEM_FREE,R7 ; Calculate total amount of free memory 
7 7 4€ E CVILF ; Convert free memory size to float 
58 9 F°CF 4€ E CVTLF SIZEAR R8 ; Convert WS to floating format 
58 CCCD3F4C BF 44 F MULF WPER WS_INUSE ,R8 3; Scale the wS 
57 46 F DIVF 7 ; Create a rough process b Smegtiey count 
57 993'CF 7 F : Scale the count for t 
C7 ; 


DIVL #PP PAGE USAGE ,- Calculate page process count Limit 


56 = OOF PAGE _SIZE,R6 


Push # of digits in the fraction 


a a ee a ee ee a 
WOOO O09. 0969 0909 09 G9 G9 0D G0 I INN NDS DDS DD DED DD TTT BB EE EI 


PAR 2 OOD NAN EWN 0 OD NA UNE WIN OS OO NIA NE AI CO OD NOU EWI OOO NOAU SW" O00 
=z 
Cc 
= 
~ 


NSN NNN SNS NSS SSSI PAA AAA OOOO OOOO OOrorrano 


0 
ue 
A 
; 
F 
02 OD F #2 3 
O2DE'CF OF 11 PUSHAL CPU_SCALE_DES ; Push string storage desc adr 
‘CF OF 15 PUSHAF ce AL ; Push adr of float . number 
00000000'GF 03 FB 1 CALLS ,G*FORSCNV_OUT_F ; Make the number a string 
02 ODD PUSHL H ; Push # of digits. in the traction 
oer a ce OF PUSHAL WS_INUSE_DES 3; Push strin sporege desc adr 
FO'CF OF PUSHAF : NU 3 pues oar of float ng number 
00000000 ' GF 03 FB A CALLS 7G*FORSCNV_ O° F 5 e the number a string 
76 O43SA'CF 04 €1 1 BC PDUMPV. FLAGS 3 Bae ‘t not in dump mode : no message 
7 SFAO_S CTRSTR = ; Make the first cutput string 
f OUTLEN = pune ne 
OUTBUF = FAO BUF,- 
7 P = #cP0 SCALE _DES,- 
7 P = FREE 
7 P = MEM “MODIFY, - 
4 P4 = WS SIZE 
P5 = WuS’ 1NUSE_DES,- 
7 P6 = R7 
4 SPUTMSG_S MSGVEC = DUMP_MSG_PTR,- ; Print the filled in equation 
4 ACTRIN = ACTRTN 
4 $FAO_S CTRSTR = DUMP_MSG2,- ; Make the second output string 
7 OUTLEN = BUFFER PTR,- 
77 py tour = FAO BUF,- 
77 P = SWAP_SIZE,- 
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7 5 Pp = PAGE SIZE,- 
ae i Fs z fPP_PAGE  SAGE- 
= 
79A SPUTMSG_S MSGVEC = DUMP_MSG_PTR,=- ; Print the filled in equation 
pea 5 108 “ ACTRIN = ACTRIN ~ . 
OF3'CF D 7A MOVL R6,PAGE SIZE 3; Pa rocess count Limit 
9E3'CF 3 D 7B¢ § OVL R7,MEM_ SIZE : avai lable n main memory 
SEF'CF DF O78 PUSHAL SWAP_STZE i Find the minimum of swap slots... 
go DF 0788 4 PUSHAL PAGE SIZE i «free page file + ne 
pe F DF 078 5 PUSHAL 4 $12 i «--usable main memor 
000090 90" f § CALLS #3,G*MTHSJMINO 3 «and leave the results in RO 
93 tt D MOVL RO,LOAD_ COUNT ; save the MIN 
o-' b MOVL #4 ,OUTLEN ; Set the results Length 
mew RUSAD Pana tou LU ume Stood ce 
; Pus e load count value 
00000000 ' GF 6 FB CALLS fo G*OTSSCVT_L_TI ; Convert the load count to a string 
SSETSFM_S ENBFLG = #0 ; Disable SS failure mode if no match 
SDELLOG_-S LOGNAM = USERS,- 5 theee out Ry possible name that... 
BLFLG = #1 3 .eemight be left from a previous run 
SSETSFM_S ENBFLG = #1 3; Re-enable system service failure mode 
46 O43A'CF ,01 4 BBC #PROMPTV, FLAGS ,40$ ; BR if we need not prompt at all 
0B88' CF 9 MATCHC KEY_LOAD_DESC ; We need RY, Brent ««< 
cop BBS. DF QKEY-LOAB_DESC#4,~ ; «+-if the LOAD phase... 
OIAA'CFE O1A2'CF PARAR MSG; PARAM _buF 3 eat?? voy Bi. the preees selected 
03 13 BEQL 0$ 3 user has a choice 
oopc 386351 OO BRw 0$ 3 fe Lies - use default 
8 208: SFAO_S CTRSTR = LOAD _PROMPT,- 
OUTLEN = purr ER PTR, - 
OUTBUF = FA 
1 = LOAD. COUNT ; Create the prompt string 


30$: MOV #MAXSYM_SZ,P3_DESC 
PUSHAL ie PTR 
R 


; Define desc for response 
; Set response length location 
; Set prompt string 


044B8'CF OFF 8F 0 3 
44B'CF : 
: Set answer address 


045'CF F 
4B'CF F 
eeateadial™ 03 F 


“LIBSGET_COMMAND ; Ask for the load count 


0 € BLBC ,50$ ; BR if failure 
40$: ; Test for valid input from P3 or pr t response 
MOVAQ P3_DESC,R2 3 Point to desc for response 
TSTW (RZ) 5 aay response 
BEQL 80 ; BR if_not - use default 
0988 'CF mover (R ) -OUTLEN ; Set Pe geree Length in buffer 
vc (R2),@4(R2),@0UTLEN*+4 ; Use P oad co 
PUSHAL ARG COUNT ; Push place or results 
PUSHAL EN ; Push asc results 
00000000 ' GF F CALLS TSSCVT_TI_L 3 save the long word load coun 
SA E BLBS H 3 f we eet. a@ reasonable number 
05 043A'CF BBC rekon ry FLAGS, 508 : BR if not prompting 
04 9 BSBW SYNTA _ERRO : ...else report the error... 
BRB 3 «e.and try again 


“ 
So 
” 
S 
x 
a. 


: sume we are rompting 
BBS SPROAPTV FLAGS .608 : BR if that's the case 
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in’ - AX/VMS Macro V04- Page 33 re 
vey iis Frenran oon en an Foren 18-8 fF ety 90: 43 §3 UETPSY.SRCJUETINITOO.MAR;2 2) 
ater . “ 14 PUSHL $*#SS$_BADPARAM ; We give an additional error if not 
+ pe P 12 bytby astssy ; Was this a System or RMS error? 
olla ' { 14 § DECL 4 138 s: Fat 2h m0, = ; they. "g Foc tt tetas 0@1, respectively 
: tem or 
4 BLEQ 60$ ; ys ._= 
i 38 12 § iNet’ R ; yoy By Roy Ey messages 
dD 
Be ieee O08 ; Save the error status 
vel oF 1 SFAO'S CO RSTR = INVALID ,LOADCNT. MSG,- ; ps is an invalid load count 
9E 14 “ QUTLEN = BUFFER. TR,= 
ze 14 ¢ feel PPS DESE 
4S'CF ODF : 14 PUSHAL 8B FFER_PTR 
” D 14 § PUSHL 
, § PUSHL #UETPS_TEXT!STSSK_ERROR 
sa ate ; iH cS 1489 mOVLS RAM, STATUS Set the exit status 
PA . H 
sseaeeod venting 4 ? te 1294 Bru ERROR CXIt ; Bitch and quit 
eres ; It converted OK save it away 
. : OUNT, Lon COUNT 3 C 
ee ee be 1e78 08, SCRELOG. $ S"EOGNAN ¢ U USERS = _ ire 
- : al name 
abe 127 TBLFLG = ; Make the load count group logic 


O8SF 'CF 


UVETINITOO 
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O98F ' DF 


13 cr 


O9 ee cE fF 
758'CF CF 
1E 
CF 
: 
00000000 ' GF 
0422'CF 
CF 
: 
2 
4C 


O85F ‘CF 
OBSF'CF 4C€ 


OBSF'CF 53 
05 O43A'CF 


00000000 ' 8F 
0422'CF 
0° 4 
OBSF'CFR  474E4F4C br 


00000054 saerca53 BF 
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If the prompt flag is se 


to be used by the rest of the U 


s LONG report. 


~" BBS #PROMPTV ai bacs. .3$ 


—-@Woo 


OUTLEN 

REPORT_PROMPT 
#3,G*LIBSGET_COMMAND 

BLES = RO, 

MOVL RO, STATUS 


-—9F WwoMmnCOCOo —mom 


=U —COmnns 


WUUIWNoNonononofnond | = = 2D OOOO ™ =Mmmmmmmmemm 


°o 
RON DS POP SP NOOBS &v0—-TWI@IOIIOIIw ¢ 


P4_0 
+e DESC, by BUF, QOUTLEN+4’ 
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we prompt ch the ay for a or SHORT ponert format 


P4 is defined we use 


f P4 is not defined or the prompt Bs I null, we use the default wien 


z Br if prompting 
t P4 param Length in buffer 


5 but specified mode in buffer 


Set response length Location 
Set prompt string 
zor asnwer address 

k for the report format 
i no failure than continue 
else save error and 


9 

9 

9 

9 

9 

9 

9 

, $3 BRw FINI bail out 

9 TSTL OUTLEN ; poy peraet specified? 

9 BNEQ 10$ 3 if yes 

> 108 BRB 208 3 Go fill in LONG 
eA 9 BICB2 OL COTY ANSMERSS ; Make sure that it is upper case 
7} > coer #*A/L/, ANSWER+ 3 is nS tong report format? 

3 r 

91 09 #*A/S/ ,ANSWER+8 : Is 1 short report format? 
13. 09 BEQL 3 ; Br if yes 
4 9 BBC i ca FLAGS,15$ ; BR if not prompting 
0 094 BSBW SYN OR ; «--else report a syntax error... 
11 S44 BRB REPOR t : ...and ask again 

eee 15$ ; P4& is an invalid report type - bitch and quit 

094A SFAO_S CTRSTR = vA, 10 he _MSG,- 

094A OUTLEN = rue FER 

094A BUF = _BUF ,- 

094A P = pPan Dest 
DD 096 PUSHL #SS$ BADPARAR 
DF 096 PUSHAL BUFFER_PTR 
DD 09 PUSHL # 


#SS$_BADPARAM, STATUS 
BR ERROR_EXIT 
20$: Long format” 
hove” #4 OUTLEN 
MOVL #°A/LONG/ ANSWER+8 


HRB 
099 30$: : Short format 
0 099 hovw 


#5, QUTLEN 
be MOV #*A/SHORT/, ANSWER+8 
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cGLNAM = UUTLEN>- 


aye TPs. TEXT! STSS$K_ERROR 


SCKELOG_S LOGNAM = teh _NAME ,- 


Set the exit status 
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i TBLFLG = #1 ; Make the report format group logical name 
S 1 


' Any peer ienat UETP prompting code should be inserted at this point 
1 o 
1 


in the code 
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O9AB'CF  0045'CF 
56 piae cE 
0442'DF 43E'CF 
TAA! CF 46 

OIA2'CF O43E'CF 
0997°CF gt 

5 

O179'CF 02 

56 ar 
0049'DF  0045'CF 
an sece 

O1A2°CF § 0045'CF 
56 an 
0049' DF 045'CF 
eI iPS | 

O1A2°CF  0045'CF 
56 hes 
O8SF'CF 4C€ i 
0451'DF  O044D'CF 
AA'CF46 

O1A2'CF O044D'CF 
12 

0469'DF  0465'CF 
AA‘CF46 

O1A2'CF 0465'CF 
O9AB'CF O1A2'CF 
0422°CF 10000000'8F 
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D 

AO 1 
d 

4F 

54 
58 

5F 

6 

6 


~~~ 


~™~NVUIT > 


>>>>>>>>>r>rrrrrrrrrrrrrrrr Yr Kr Pr rPoOoooowowow 
hd 


PDOOOOOO WOOO WO 09.09. 9 09 G9 GI I INS DDD DDD DODD TTI BE 
SOO NONE WP *§ 0 OD NOE WIP 0 OOO UNE WUINR) 0 OD NOUN EWR | C OD NOUS UP" OOOVNOUNS 


Sb> >> ooo 


oO 


20$: 


30$: 


40$: 


50$: 
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MOVAL 
SPUTMS 5 
MOVZWL 
MOVC 
ADDW2 
oe 
BNEQ 
SUBW2 
$SFAO_S 


MOVZWL 
moves 


ADDW2 
$FAO_S 


MOVZWL 
movCS 


ADDW2 BUFFER_ pre PARAM_MSG—; 
MOVZWL PARAM_MSG,R6 ; 
CMPB ss #*A/L7, ANSWER+8 ; 
BNEQ 40 ; 
MOVC3  LONG_MSG aL ONG_ MSG+4,- ; 
PARAR_ BUF 
ADDW2 ONG. ASG, PARAM_MSG F 
BRB 
MOVC3 SHORT ASG G ,@SHORT _ MSG+4,- 
PARAM” 
ADDW2 SHORT “ASG. PARAM_MSG F 
VAL__ PARAM_MSG,MSG_DESC 
SPUTHS $6_S- 
“MSGVEC = VECTOR,- 
ACTRIN = ACTRIN 
MOVL  #SS$_N NORMAL ! STSSM_ INHIB_ Ast G. Stal 
SEXIT_S STATOS 


18-$EP 


OUTLEN 
TBUF = FAO BUF. ° 


‘SUFFER, PTR, MSG_DESC 
“WSGvEC = VECTOR. - 


ACTRT s ACTR : 
PARARY MSG, RO 3 
PHASES gaPHaseses. - ; 
PARAM 

pARAA 6 PARAM_MSG 3 
f) gPASS COUNT : 
§ _ tae _MSG ; 


CTRSTR = PASS_MSG ; 
OUTLEN = BUFFER PtR, - 


FAO 
a = PASS_COUNT 
PARAM_MSG,R6 ; 
BUFFER PTR QBUF FER, PTR+4. 
PARAM GUFCR6 

BUFFER. PTR,PARAM_MSG ; 
BURST = LOAD_MSG,- ; 


Pp 
PARAM 
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; Go ahead and output ms 
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i 


yp arun of the UETP has been done. 
zing what the user wants. 


GE: 
0. § CTRSTR = START MESSAGE. ; Make the startup message 
= QUrFERP 


to 1608 e as well 


Get current 


; Add PPHASEtS) 9 msg 


Update msg length 

Are we es only 1 pass 
Br ifn 

Drop “ES” off "PASSES" 


Create pass count portion of start msg 


Get current sangts 
- ; Add number of pass(es) to msg 


Update msg Length 
Create loads count part of start msg 


Get current Length 


MSG,R6 ~ q 
BUFFER PTR R -QBUFFER_ PIR+4.- ; Add number of load(s) to msg 


PARAM_6UF 


Update msg length 


Get current _ tength 
Lon sreeerr: 


Br 
Add a3 REPORT" to msg 


; Update length 
; Go output message 


; Add ‘"SHORT REPORT" too msg 
Update msg length 


¢ Go put itt and ai ae 

t to file well 

; Set Ba A vente status 
tw en! the status 


Out ut 
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There are four cases that can occur here. 


—s 
. 


There are no multiport memory controllers on the system. R7 is 0 already. 


~m 
e 


Multiport memory is being used as global shared memory. Must clear R7. 


Ww 
° 


Multiport memory is being used as local memory. This case {3 
distinguished by RPBSV_USEMPM being set in the RPB copy of R5. 


Only multiport memory is being used as local nenery- Any memory 
in econ controllers is ignored. This is the multiprocessor 
configuration. This case is distinguished by RPBS$V_ 

being set in the RPB copy of R5. Must clear R6. 


BBC #RPBSV_MPM,- ; BR if not multiprocessor config 


= 
e 


vy ] § sia -SBTTL Figure Various Limits of This Configuration 
AC? 1604 : This code was stolen from the CLI Utilit for SHOW MEMORY. 
ne g ¢ rg sete yee y program for §S EMO It runs 
AC? 1 5 : It uses the memory descriptors in the Restart Parameter Block 
AC? 1 8 ; to determine the amount of physical memory in use. A check is made to 
Ace 1298 ; see if multiport memory should be counted as local memory. 
AC? 1611 : The following set of assumptions state that all multiport memory adapter 
AC? 1e1¢ 3; type codes ore bounded by NDTS_MPMO and NDTS_MPMS and that no ebapter 
Ace 1917 : type codes in this range represent anything other than multiport memory. 
AC? 1615 ° ASSUME NDTS_MPMO LT NDTS$_MPM1 
AC? 1616 ASSUME NDTS-MPM1 LT NDTS_MPM 
AC? 161 ASSUME NDTS_MPM2 LT NDTS_MPM 
ASP EIB eo 
AC? 1620 GET_MEM_INFO: 
OOFC joy 12 WORD “M<R2,R3,R4,R5,R6,R7> 
50 Q0000000'GF DO CACO 16 MOVL G*EXESGL_CONFREGL,RO ; Get address of TR/adapter t 
51 .90000000°GF D9 ADO 164 MOVE - GEXESGL-RPB.RI mMmuarwnee oo 
52. 00BC C1 DE OAD? 1625 MOVAL RPBSL_MEMDSC(R1),R2 : Get addr of memory descriptors 
7C OADC 16 § CLRQ R6 i; Init local and shared page counts 
6 de ADE 1627 10S: TSTL (R2) ; End of memdsc List? 
¢ 1 AEQ 1628 BEQL 40$ : Yes - finished collecting info 
53 62 08 $ EF AE 1629 EXTZV #RPBSV_TR,ARPBSS_TR,(R2),R3 ; Get TR number 
53 6043 DO OAE? 1630 MOVL (RO)CR3I,R3 : Convert to adapter type 
0 EF OAEB 1631 EXTZV #RPBSV_PAGCNT,- ; Get page count 
a AED 16 § #RPBS$S_PAGCNT,(R2),R4 
40 BF 5 91 OAFO 16 CMPB R3,#NDT$_MPMO ; Is adapter number below MPM range? 
of 1F 1634 BLSSU ; If so, this is local aenery 
43 8F 5 91 1635 CMPB R3,@NDTS_MPM3 ; Is adapter number above MPM range 
95 1A 16 : BcTRU 208 : If so, this is also local memory 
57 4 co 16 ADDL R4,R7 ; Otherwise, this is multiport memory 
03. «11 1638 BRB 30$ : Go to end of loop 
ms % cs 1640 ¢ $ ADDL R4,R6 :; This is local memory 
52 08 C0 1641 30$ ADOL #RPBSC_MEMDSCSIZ,R2 ; Point to next memory descriptor 
oa 1966 BRB 10$ ; and go back to top of loop 
1644 
1645 
1968 
164 
1963 
164 
1939 
i 
Hi 
16 5 
1689 
1658 


DOOOOVODOOVOOODOOOVO0 DONS NOPOS 
BH Se Be Oe Oe Se Oe Se BeBe Bee ee 


So 
fF 


SOOO OCOOOOSOOOOOOOOOOO TM TT Th 


renee cc 
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04 30 Al BOB «(1 23 RPBSL_BOOTRS(R1) ,50$ 
os : 1 CLRL R ; We don't count any local memory... 
1 : 1661 BRB 60$ 3 «but always count shared memory 
EO QOBi2 1 ¢ 508: BBS #RPBSV_USEMPM,- ; Also count shared memory? 
02 30 A Ne 4 63 in RPBSL_BOOTRS (RI) .608 ® 
ar 6 CO OB19 1665 60S: ADDL2 R6,R7 ; Calculate total available memor 
57 00000000'GF D1 081 1998 CMPL GoAMGSGL_PHYPGCNT.R7 ; How does that compare with SYSGEN? 
7 if : 166 BGEQU : f we may use all we have 
57 gonrepeo" ae : 1998 MOVL G*MMGS$GL_PHYPGCNT ,R7 ; Use only as much as we are allowed 
O9E3'CF 7 dO 08 c 196 70$ MOVL R7,MEM_STZE ; Return what's around and allowed 
O9E7"CF  QOO000000'GF DO 0831 1859 MOVL G“*SCHSGL_FREECNT,MEM FREE ; Get number of free memory pages 
O9EB' CF 4 000 ' GF ¢ BSA 1076 MOVL “SCHSGL_MFYCNT MEM_MODIFY ; Get number of memory pages modified 
OO00000'GF A 23 167 SUBW3 G*SCHSGW-PROCCNT,- ; Process slots free = total slots... 
50 00000000' GF 49 1674 G*SCHSGW_PROCLIM,RO ; .--less slots in use... 
5 A2 4F 1675 SUBW2 RO i; .--less slots for swapper and null... 
O9EF CF 3C 36 1928 MOVZWL RO,SWAP_SIZE it «e-converted to a form we can use 
50 0 3? 1677 OvL $*#SS$_NORMAL ,RO 


UE 
UE 
UE 
UE 
VET 
UE 
UE! 
UE] 
UE] 
UE 
UE] 
UNE 
USE 
USE 
VE( 
VEF 


SSELARS 


ccc 
nnn 
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: 4 ! 9 “a -SBTTL System Service Exception Handler 
B 1 ; : FUNCTIONAL DESCRIPTION: 
B58 1 ; s routine is executed if a system service or RMS error occurs or 
8 12 4; if a LIBSSIGNAL system service is used to output a message. 
B 1685 ; nformation about this method of handling messages and errors can be 
B 16 $ 3 ound in the VMS COMMON RUN-TIME manual and in the VMS SYSTEM SERVICE 
: 19 : manual. 
B 16 5 : CALLING SEQUENCE : 
28 : 3 ; Entered via an exception from the system 
35 1880 : INPUT PARAMETERS: 
28 1907 ; ERROR_COUNT = prev ~ius cumulative error count 
Be igi, eae 
0898 1697 ; | SIGNL_ARY PNT i 
0858 1699 : i MECH ARY PNT i 
0858 1700 ; \ annceeeee------ — 
ae ee oe 
0858 1708 : | ESTABLISH FP ; 
0858 1598 : i DEPTH i Mechanism Array 
0858 1706 i neneenen------- i 
0858 1707 ; ! RO ! : 
0898 1708 \ eennnnnnnnnn--- i i 
5B 1709 ; ' R1 ! v 
0858 1710: i nannn----- a 
eae seers SE 
0858 1718 : i CONDITION NAME | 
SBe 1715 : i N-3 ADDITIONAL | Signal Array 
0858 1716 , i LONG WORD ARGS : : 
0858 1717; i annnnnne-----== i 
beee Vri8 3 ; PC : 
5B 1719 ; | eennnnn--nn---- i 
ie 10 ieee Beek 
58 17 ‘ > IMPLICIT INPUTS: 
2B 15a : _ 
58 1725 : OUTPUT PARAMETERS: 
2 ee 
3 17 8 : IMPLICIT OUTPUTS: 
28 4 ; he messages are output to SYSSOUTPUT and to UETP.LOG. 
B 17 ? > COMPLETION CODES: 
Bf eee 
B 1734 ; SIDE EFFECTS: 
B 1735; NONE 
B 1736 ;-- 


T00 


ua 


uu 

oO 
aOooo 
moo 


4 
50 7 B7A 
0 B7D 
6€ 44 
56 8604 AC B81 
59 (04 48 B85 
1 B89 
00000074 8F 85 5 
16 
66 02 94 
97 
97 
21 A8 
59 00000000' 8F AA 
32 1 
10 
C 
01 A 
B 


1 
5A 0000000 ef A 


w 


DDO POOuw 


OOA4'CF ; 
C 
01 BA BC 
BCD 
01 BA 08 
50 00° bDO OBE 
4 BES 
+f) 
0422'CF 9 b0 BE 
8 D4 BEA 
59 socceeee" se D1 BE 
8 12 3 
BF 
BF 
BF 
+ 
0406'CF 9 
16 38 bet 


System Service 


FAN $9 OD NA UNE WIN OS OD NAN E WW OS OD NOAM EW OOD NOA UNE WH OOO 


SOOO lCLLLllllllTTrwvrrrsi 
OO O09. 0909 C9 09 C9 C9 GD G9 09 SS INN SN SDS DODD OOO TTI BS BS BY 


kk ek tt a kn td dt a ts a a bs 2s bs — ss tb bn — 2 — sb a a ts a tn a a th tt tt 


oO 


Wr OOCOnNOu 
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xception Handler 


SSERROR: 


10$: 


20$: 


30$: 


40$: 


50$: 


«WORD 
SSETAST_S ENBFLG = #0 
PUSHL # 


CMPL $°48S$_WASSET.RO 
BEQL 0$ 
CLRL CSP) 
SSETSFM_S ENBFLG = #0 
PUSHL “#1 
CMPL “#SS$_WASSET,RO 
EQL 0$ 
CLRL Ess CSP) 
MOV CHF $L_SIGARGLST (AP) 
MOV (R6) ,R 


aStS80-FAC NAME 


SS7FA 
RO, #UETPS Pee fcary 


BNEQ 
SUBL2 #2, CHFSL_SIG_ARGS(R6) 
SPUTASG _S MSGVEC™= cAFSL SIG_ ARGS ( 


ACTRIN = 
BRB $ 
CMPL  #SS$_SSFAIL,R9 
BNEQ 508 ~ 
CMPZV ST SSy_ FAC NO. - 
R10, PRASS FACILITY 
BNEQ is 
BICL2 #*XF0000000,R10 : 
aATeac #4, CHFSL S16 _ARG1(R6),- : Is 
gNRAT LERGTH 
NO_RMS_AST T_TABLE 
BEQL 80s 


POPR #*M<RO> 
SSETSFM_S ENBFLG = RO 

0 #*A<RO> 

SSETAST_S ENBFLG = RO 
MOVL ~S*#SS$_NORMAL ,RO 


MOVL  R9,STATUS 
CLRL 
cHPL #SS$_SSFAIL.R9 
SGETMSG_S MSGID = 

MSGLEN = aieeER PTR,- 

BUF ADR = FA F,- 
FLAGS 
TADR = MSG “BLOCK 

TSTB ns. BLOCK+1 
BEQL 


pa19Be 95:49:67 


“M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 


; BR ifn 


> Stri 
iP 


— ar 


ee} 


AX/VMS Macr 
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Disable AST delivery 
Assume ASTs were enabled 
Were ASTs enabled? 

BR if ghey ere 

Set ASTs to remain disabled 


| 
Disable SS failure mode 
Assume SS failure mode was enabled 


; Was SS failure mode enabled? 


was 
Set SS failure mode to remain off 
Get the signal 


, or grgter 
Get NAME in R9 RG1 10 
Is this a message from LIBSSIGNAL? 


BR if this is not a UETP exception 
nd PSL 


; Drop the PC a 


R6),- ; Print the message 


Restore ASTs and SS fail mode 


RMS failures are pyenes failures 
BR if this can't be an RMS failure 
Is it an RMS failure? 


ot 
control bits from status code 
t an RMS failure for which... 


»»eMo AST can be delivered? 
BR if so - must give error here 


Restore SS failure mode... 
Restore AST enable... 


Supply a standard status for exit 
Resume processing (or goto RMS * ERROR) 


Save the status 

Assume for now it’s not SS failure 
But is it a System Service failure? 
BR if not - no special case message 
Get SS failure code associated text 


= , FAO arg count or SS failure code 
Don't use SGETMSG no $FAO args... 


‘a 
vou-001 System Service Exception Nendler «18-SEP-1986 95:47:07 LORTPSY.SRESUEYINITOO.mAR;2 29° (300 


0045' DF PUSHAL ° FFER_PTR i «else build up 
DD PUSHL ; 1.08 message describing... 
00741130 bp PUSHL Ae th + i «eewhy the System Service failed 
00 F INSV V_SEV ERtT - 3; Give the message... 


ih SEVERITY, ( SPs .s.the correct severity code 


Count the number of args we pushed 


38 


oa 
oO 
wr 


PUSHL R10 Save SS failure code 


DD 
dO 708 MOVL #1,R8 ; Count the number of args we pushed 
57 96 C MULL #4, cuFSL. SIG_ARGS(R6),R7 ; Convert longwords to bytes 
E § 7. ; Save the onvent signal array... 
V . N 3 «.-0n the sta 
6—E 04 A6 MOVC Rr CHFSL_SIG_NAME(R6) , (SP h 
7E 66 $i ADDL 


on ekr 346 “ARGS (R6), 0 eSP) i; Push the current arg count 
BRW ERROR 
"WORD “NCR? 


AP) ,R2 
(RO) be RAB+RABSW_RSZ 
(R25, LOG_RAB+RABSL_RBF 


B= 
MOVL #SS$_NORMAL ,RO 


0004 
onso'cre 63 Re 
OA8B'CF O04 A dO 


50 00000000" 8F 9 p 
0 


get the message descriptor address 
set the message size 

set the messa ? dares 

write to the file 

set the re. status code 


DOAMOAODAOOOOOAAOHAHAAOHOOOOHAAO|AOO 
sad 
v 
=—<cC 
“ 
zDD 


DPE ME BBLS EWI POPONONPONONOP SS SS SS 


FWON -DOMNOCOS OF $9 SC FPODOW—Manrry 


Ft ts 4 4 + > _» 2» —» —» —d —2 —» —» 2 _» bs 2 ts ss 


©] 09 00 09 0d 09 00 09 09 09 09 09 CD CDCD CD CD OD 0000 SII II 
Se tH SH MH QDOOOOOOOOOOCOOOO 


OWONAU EWN SO ODNA MVE WH OODNAUNE 
“ 
Cc 
ow 
2 
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RMS Error Han 12-SEP-1 
-SBTTL RMS Error Handler 


FUNCTIONAL DESCRIPTION: 
This routine handles error returns from RMS calls. 


CALLING SEQUENCE: 
Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
The FAB or RAB associated with the RMS call. 


IMPLICIT INPUTS: 
NONE 


o 
> 
a 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Error message 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program may exit, depending on severity of the error. 


-»-STS field for error... 


RMS_ERROR: 
OFFC WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,RI0,R11> = Entry mask 

56 04 MOVL 4(A ; See whether we're dealing with... 

56 CMPB Prapse. BID, FABSB_BID(R6)- poe es@ FAB ora RAB 

BNEQ 10$ ; BR if it's AB 

57 ere” MOVAL FILE,R7 FAB-specific code: text string... 

MOVL R6 .--address of FAB.. 

PUSHL FABSL_ST ...STV field for error... 


ooo 


BOT a Pt et et et et et et et et et et et et et ek ek et ek ke ek ek ek ek et ek te 


PPPO —PPPVIo—o> 
no 
PAA AAA AA AAA AAAS BB Be Be Be a AAAI RPP OP OPONIND 


NOAA MN 9 OD NA NE WIP 2 9 OD NAME WIN OOD NAME WIN OC OO NAME | OOOO ES wr 


POOOOVOODOVOOOODOODOOODOAOODOAOODOIOIODOIOIODAOOAOAOAAAOAAOAAIAAAAAAAIAOAOOOAOOO 
a kk ik kk nt tk at at ot tt ht hh tt ss 


WDD OWODOODO OOOO WW 09 SII NIP AAA AAA A AAA AA AA AAAS AAA AAA AAO 


AM AAAOOAONMOWO 

sos —-cVco°oT°o-o7o 

-—oVT7o no 
SOOOOOCOCOOOSCOOOCOOOOCOOOOOOOOOOOOOOCOOOOOOO 


0422'CF MOVL FABSL-ST » STATUS ...and save the error code 
108 BRB C Q FAB and RAB share other code 
57 O2cF* MOVAL RECORD R7 ; RAB-specific code: text string... 
58 C Dd VL RABSL _FAB(R6) .RB ; ...address of associated FAB... 
OD ‘ PUSHL RABSL =S Ty ERO) 3 «STV field for error... 
DD PUSHL RABSL-STS(R6) 3 «STS field for error... 
0422'°CF A6 +00 : iemeen VL RABSL_STS(R6) STATUS 3 ..-and save the error code 
5A 34 A8 QA A 186 MOVZBL B_FNS(R8),R10 ; Get file name size for implicit PUSHL 
E + $FAO_S ereee = RMS ERR STRING,= ; Common code, prepare error message... 
E . OUTLEN = BUFFER_PTR,- 
— 187 oyTeur = FAO_BUF,- 
—E 187 Pp = R7,= 
£ 187 P¢ = R16,- 
f 7 P = FABSL_FNA(R8) 
0045"CF OF ? PUSHAL BUFFER_PTR ; «..and arguments for ERROR_EXIT... 
1 OD C 7 PUSHL 5 wwe 
00741130 8F DD E 7 PUSHL #UETPS_TEXT mas 


UETINITOO VAX/YMS ETP USER INTERFACE PROGRAM > 1g-SEP~1984 00:22:25 YAX/ uN - 5 


ue 


00 


f 
: 


EF 


3 


tpg te Ba e® 


‘ 
: 


18) 
1 
1 
1 
1 


SEP- cro V04-0 Page 
13-SEP=1 UETPSY SREIUEYINIZOO.MAR:2 29° (3%) 
oststy.§ venttles 
#STS$S_SEVERITY,= 
STATUS,R 3 “oper the S severe? co 
Rg. (SPS : to the yi name 
& 3 Sctene” ve count 
ERROR_EXIT 
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Syntax Error Routine 12-SEP-1 UETPSY.S REI UETINITOO.MAR;2 (22) 
-SBTTL Syntax Error Routine 


* FUNCTIONAL DESCRIPTION: 
This routine handles syntax errors. 


CALLING SEQUENCE: 
BSBW SYNTAX_ERROR 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Sete Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se ‘> 


SYNTAX_ERROR: 
PUSHAL SYNTAX_ERROR_MSG 
PUSHL #1 


PUSHL ETPS ee ERROR 


00741132 ae DD 
CALLS -G*LTB$SI 
RSB 


00000000 ' GF F 


POOOOOOOAAOOAAOHOOAAAOOAAOOONOOANAOOOO 
a ts ss bs ss bs 2 a as ns 2 ss a a a tt se 
WWOO00O00000000 00000 000000 0000000000 G0 G0 00 0D 00 G2 0000 
tt at 8 I — I SB DODDODOOOCOOCOOOOOO0OO0OMMMDcnc 


WDNAUE WN O ODNOA UNE WWIN 2 O ODNOU EW OOONOM 


0 
OOD9'CF DF 
01 
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-SBTTL CTRL/C Handler 


FUNCTIONAL DESCRIPTION: 
This routine handles CTRL/C AST's 


CALLING preven E: 
Called via AST 

INPUT PARAMETERS: 
NONE 

IMPLICIT jePuTss 
NON 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


See Se Ge Ge Ge Be Ge Ge Se Ge Se Se Se Se Ge Ge Se Se Ge Se Ge Ge Ge Se Se 
o 


mains mes sles esleslesieileslesleclaslasiaslesliaslesiaslesleslaslaslesleslas esl esl es esl es esl esl esl esas es al 
FWO DNV OO WE 


CCASTHAND: 
WOR “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RI1> ; Entry mask 
OOBS'CF OF PUSHAL CNTRLCMSG ; ses message pointer 
1 PUSHL #1 arg count 
00741130 8F 0D PUSHL #UETPS_TEXT!STSS$K WARNING “Set signal name 
0 PUSHL @# > ind dicate an abnormal termination 
wnat OF 4h ST_NAME , ais 
007410E0 BF oD PUSHL ‘ ETP$_ABENDD! STS$K “WARNING 
00000000'GF 07 F CALLS G*LTB$SIGNAL i Output tne message 
MOVL acéisin i INHIB -MSG!~ ; Set the exit status 


S$ 
sTesk SUCCESS#STSSK _WARNING>,= 


0422°CF OFFFFFFF ‘SF U 
SEXIT_S STATUS ; Terminate program cleanly 


a a a tk a dt a sb a a a a a 2 a as bs a = a 
WOOO OOOOOOOOODOOOO VOODOO OOOOOWOVOOOOVOOOOOOOOOOO 
PAAAXR MANA AAA EE BE EEE EAA AAA AAA AAO ONPOPONINININD 
PWR OO ODNANE WIN 0 OD NOUN EWN 0 OD NAME OOD NONE 


OVS IS| YF OMOOOOOOOOOOOOOOOOAOOAAOAAOAOOOOOOOOOAOMOO 


[= 

nn" 

o~moccrcrco 

o~mocvoo" 
COOOCOCOCOCOOCOOCOCOOOCOOOOOOOOCOOO 


— 
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-SBTTL Error Exit 


++ 
FUNCTIONAL DESCRIPTION: 
This routine prints an error message and exits. 


; AL PeGuence's 
Vx error status mgs fob 
PuStix error specific information on the stack 
PUSHL current prounent count 
BRW ERROR_EXIT 


INPUT PARAMETERS: 
Arguments to LIBSSIGNAL, as above 


D 1 
DIE 196 
D 1 ; 
D 1 ; 
D 1 ; 
D 197 : 
D 197 ; 
DIE 197 : 
DIE 1974 ; 
DIE 1975 ; 
DIE 1 £6 ; 
D : 1 : 
D £ 1978 | 
DIE 1980 : IMPLICIT INPUTS: 
4 ; 12 1 ; NONE 
DIE 19 § i : OUTPUT PARAMETERS: 
4 : 13 : 3 Message to SYSSOUTPUT and SYSSERROR 
0D —E 19 8: : sales OUTPUTS: 
7 : 133 3 Program exit 
DIE 1989 ; COMPLETION CODES: 
DIE 1991 we 
DIE 1336 : 3; SIDE EFFECTS: 
DIE 199 ; NONE 
DIE 1994 : 
ae 
44 He ERROR_EXIT: 
0436'CF O08 BE C1 OQODIE 199 ADDL3 (SP)+, 7. gARG. COUNT ; Get total # args, pop partial count 
ened 4 D6 0024 944 INCL ERROR_C ; Kee running ofror’ count 
DD 0D28 83 PUSHL #0 : Push the time parameter 
8 DF OD2A § PUSHAL TEST NAME : Push test name... 
ooord DD OD F 0 PUSHL #*xF0002 ++-arg count... 
00741 DD OD 4 PUSHL #UETPS ABEND! STS$K _ERROR : “sand signal name 
DD OD3A 5 PUSHL ERROR Cou : Finish off arg list... 
DF OD $ PUSHAL rest fe Ane i otee 
ote DD OD4 PUSHL 19008 
DD OD4 PUSHL HuETP ERBOXPROC ! STS$SK_ERROR +psfor error box message 
00000000 ' GF a } iB Dae oe CALLS ARG_COONT,G*LIBSSIGNAL~ ; mis tch 
0422'°CF DS OD57 1 TSTL TATUS ; Was an exit status supplied? 
9 1 D58 \§ BNEQ 0$ ; BR if one wa 
00761068 F OD D 4 1 MOVL #UETPS_ABENDD!STS$K_ERROR, ~ 3 None there. supply a default 
inns ater - 
0422°CF i0000000 8F C8 OD 4 1 BISL osTS88. INHIB_MSG,STATUS ; Don't print messages twice! 
D6F 1 SEXIT_S STATUS™ ; Exit in erro 


. 
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-SBTTL Exit Handler 


1 

D7A 

D7A ; FUNCTIONAL DESCRIPTION: 

4h 3 is routine handles cleanup on exits. 

D7A ; CALLING SEQUENCE: 

444 3 Invoked automatically by SEXIT System Service. 

D7A 3; INPUT PARAMETERS: 

br $ Location STATUS contains the exit status 

44) ; IMPLICIT grures 

D7A : NON 

D7A 

D7A 

D7A 

if 

BOA 

D7A 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 


; OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
; Various files are de-accessed, the process name is roast, and any 
h UETPDEVO1 is carried out 


; necessary synchronization wit 
: COMPLETION CODES: 
3 NONE 

te 


PAE WR OOO NOA NEW ODO NOE UNIO D009 NOUN 


D7A ; SIDE EFFECTS: 
D7A : NONE 
D7A 
D7A :-- 
D7A 
D7A XIT_HANDLER: 
OFFC 40) - WORD “M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> ; Entry mask 
443 SSE TSA S ENBFLG = #0 ; Turn off System Service failure mode 
D — FAB = LOG_F ; Close the log file 
D90 SSETPRN $ PRCNAR™ = ACNT_NAME ; Reset the process name 
04 454 RET ; That's all folks! 
D9C 0 ~ END UETINITOO 


2A 


20 


1ScSEp=19b6 99:49:67 Yet 
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VETINITOO 
Symbol table 


WMWORPACUCUCUIINGY NIC EUOUI CICA PWN MCUCUAWmnnncuncucucuCy 
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meee nr ees e eee core $ 


! Psect synopsis ! 


demo eenmnoe moo e se ne } 


PSECT name Allocation PSECT No. Attributes 
. 09 as ( -) 00 ¢ OQ.) NOPIC USR ABS LCL NOSHR NOEXE NORD 
SABSS ( ) 1 ¢ ‘ NOPIC USR CON ABS LCL NOSHR EXE RD 
RODATA ( 398 ) ¢ ( ¢° NOPIC USR ON REL LCL NOSHR NOEXE RD 
RWDATA ( 4.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SRMSNAM us ( §-} 4 ( ¢°) NOPIC USR ON REL LCL NOSH EXE RD 
UVETINITOO C ( 3484.) 05 ¢ 5.) NOPIC USSR REL LCL NOSHR- EXE 
Peo essames wena neem oem ee 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.0 90: 0:00.44 
Syeaemn 198 $888 08-68 8:88 8p 
Syabol table sort 360 0:00: 2.47 00:00: 04:43 
ass 00:06. :00:13. 
Symbol table output 39 0 :00:00-38 00:00:00-98 
Peect synopsis output :00:00.03 0:00:00.03 
Cross-r*ference outout 0 ot 88 0 + aes Be 
Asseab.er run totals 113 00:00:35.08 0:01:12.5 


The working sek Limit was 2000 pages. 

14004 bytes (282 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space ar oqeate to hold 1681 non-local and 74 Local symbols. 
2056 source Lines were read in Pass 1 "eRe Be object records in Pass 2. 

61 pages of virtual memory were used to define 54 macros. 


SM See TERME DOMED RRO SE Be} 


Paster nl Aetvctehawel, Ti ncimmitichetteemao | 
Macro Library name 
“B35S8buase: pevaiger ETP.MLB; } 


5$DU $ 

S5$DUA Syst IBISTARLET. ue: :2 4 
TOTALS (all Libraries) 5 
1898 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:UETINITO0/0BJ=OBJ$:UETINITOO MSRC$:UETINI TOO/UPDATE=(ENHS$:UETINITOO) +EXECMLS/LIB+SHRLIBS$:UETP/LIB 
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